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FOREWORD 


This  report  was  prepared  by  Tracor,  Inc.,  Austin,  Texas,  under  Contract 
DACW72-72-C-0029  with  the  US  Army  Coastal  Engineering  Research  Center  as  part 
of  the  General  Investigation  of  Tidal  Inlets  (GITI),  The  GITI  research  program 
' is  under  the  technical  surveillance  of  the  US  Army  Coastal  Engineering  Research 

I Center  (CERC),  and  is  conducted  by  CERC,  The  U.S.  Army  Waterways  Experiment  Sta- 

tion (WES),  and  other  government  agencies  and  private  organizations.  This  report 
contains  detailed  results  of  a numerical  model  developed  as  part  of  an  elevation 
* of  physical  and  numerical  models  of  a tidal  inlet.  Details  of  the  evaluation  are 

contained  in  the  basic  report  "Comparison  of  Numerical  and  Physical  Hydraulic 
i Models,  Masonboro  Inlet,  NC"  to  which  this  report  is  an  Appendix. 

This  report  is  published,  without  change,  as  received  from  the  contractor 
in  1973.  Results  and  conclusions  are  those  o^  the  authors  and  are  not  nec- 
essarily accepted  by  CERC,  WES,  or  the  Corps  of  Engineers. 

The  report  was  prepared  by  R.  M.  Chen  and  L.  A.  Hembree  of  Tracor,  Inc. 

CERC  contract  monitors  were  B.  R.  Bodine  and  D.  L.  Harris.  Technical  Directors 
of  CERC  and  WES  were  T.  Seville,  Jr.  and  F.  R.  Brown,  respectively. 

Comments  on  this  publication  are  invited. 

Approved  for  publication  in  accordance  with  Public  Law  166,  79th  Congress, 
approved  31  July  1945,  as  supplemented  by  Public  Law  172,  88th  Congress,  approved 
7 November  1963. 
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1.  The  Corps  of  lingiucors,  through  its  Civil  Works  program, 
has  sponsored,  over  ttie  past  23  years,  research  into  the  behavior 
and  characteristics  of  tidal  inlets.  The  Corps'  interest  in  tidal 
inlet  research  stems  from  its  resi)onsibil  it  ics  for  navigation, 
beach  erosion  prevention  and  control,  and  flood  control.  Tasked 
with  the  creation  and  maintenance  of  navigable  U.  S.  waterways, 
the  Corps  routinely  dredges  millions  of  cubic  yards  of  material 

eacli  year  from  tidal  inlets  that  connect  the  ocean  with  bays,  | 

estuaries,  and  lagoons.  Design  and  construction  of  navigation  j 

improvements  to  existing  tidal  inlets  are  an  important  part  of  ■ 

the  work  of  many  Corps  offices.  In  some  cases,  design  and  con-  ! 

1 

struction  of  new  inlets  are  required.  Development  of  information  1 

concerning  the  hydraulic  cliaracterist ics  of  inlets  is  important 

not  only  for  navigation  and  inlet  stability,  but  also  because 

inlets,  by  allowing  for  the  ingress  of  storm  surges  and  egress 

of  flood  waters,  i)lay  an  important  role  in  tlie  flushing  of  bays 

and  lagoons. 

2.  A researcli  program,  Ceneral  Investigation  of  Tidal 
Inlets  (.C.lTl),  was  developed  to  provide  quantitative  data  for 
use  in  design  of  inlets  and  inlet  improvements.  It  is  designed 
to  meet  the  following  objectives: 

To  determine  the  effects  of  wave  action,  tidal 
flow,  and  related  phenomena  on  inlet  stability 
and  on  the  hydraulic,  geometric,  and  sedimentary 
characteristics  of  tidal  inlets;  to  develop  the 
knowledge  necessary  to  design  effective  naviga- 
tion improvements,  new  inlets,  and  sand  transfer 
systems  at  existing  tidal  inlets;  to  evaluate 
the  water  transfer  and  flushing  capability  of 
tidal  inlets;  and  to  define  the  processes  con- 
trolling inlet  stability. 

3.  The  erri  is  divided  into  tliree  major  study  areas: 

(,a)  inlet  classification,  (.b)  inlet  hydraulics,  and  id  inlet 
dynamics . 
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a.  The  objectives  of  the  inlet  classification  study  are 
to  classify  inlets  according  to  their  geometr)', 
hydraulics,  and  stability,  and  to  determine  the 
relationships  that  exist  among  the  geometric  and 
dynamic  characteristics  and  the  environmental 
factors  that  control  these  characteristics.  The 
classification  study  keeps  the  general  investiga- 
tion closely  related  to  real  inlets  and  produces  an 
important  inlet  data  base  useful  in  documenting  the 
characteristics  of  inlets. 

b.  The  objectives  of  the  inlet  hydraulics  study  are  to 
define  the  tide-generated  flow  regime  and  water- 
level  fluctuations  in  the  vicinity  of  coastal  inlets 
and  to  develop  techniques  for  predicting  these 
phenomena.  The  inlet  hydraulics  study  is  divided 
into  three  areas;  idealized  inlet  model  study, 
evaluation  of  state-of-the-art  physical  and  numer- 
ical models,  and  prototype  inlet  hydraulics. 

(.1)  The  idealized  inlet  model.  The  objectives  of 
this  model  study  are  to  determine  the  effect 
of  inlet  configurations  and  structures  on  dis- 
charge, head  loss,  and  velocity  distribution 
for  a number  of  realistic  inlet  shapes  and  tide 
conditions.  An  initial  set  of  tests  in  a 
trapezoidal  inlet  was  conducted  between  1967 
and  1970.  However,  in  order  that  subsequent 
inlet  models  are  more  representative  of  real 
inlets,  a number  of  "idealized"  models  repre- 
senting various  inlet  morphological  classes  are 
being  developed  and  tested.  The  effects  of 
jetties  and  wave  action  on  the  hydraulics  are 
included  in  the  study, 

(2)  Lvaluation  of  state-of-the-art  modeling  tech- 
niques. The  objectives  of  this  part  of  the 
inlet  hydraulics  study  are  to  determine  the 
usefulness  and  reliability  of  existing  physical 
and  numerical  modeling  techniques  in  predicting 
the  hydraulic  characteristics  of  inlet/bay 
systems,  and  to  determine  whether  simple  tests, 
performed  rapidly  and  economically,  are  useful 
in  the  evaluation  of  proposed  inlet  improve- 
ments. Masonboro  Inlet,  North  Carolina,  was 
selected  as  the  prototype  inlet  which  would  be 
used  along  with  hydraulic  and  numerical  models 
in  the  evaluation  of  existing  techniques.  In 
September  1969  a complete  set  of  hydraulic  and 
bathymetric  data  was  collected  at  Masonboro 
Inlet.  Construction  of  the  fixed-bed  physical 
model  was  initiated  in  1969,  and  extensive 
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tests  have  been  performed  since  then.  In  addi- 
tion, three  existing  numerical  models  were  ap- 
plied to  predict  the  inlet's  hydraulics.  Ex- 
tensive field  data  were  collected  at  Masonboro 
Inlet  in  August  1974  for  use  in  evaluating  the 
capabilities  of  the  physical  and  numerical 
models . 

(3)  Prototype  inlet  hydraulics.  Field  studies  at  a 
number  of  inlets  are  providing  information  on 
prototype  inlet/bay  tidal  hydraulic  relation- 
ships and  the  effects  of  friction,  waves,  tides, 
and  inlet  morphology  on  these  relationships. 

c.  The  basic  objective  of  the  inlet  dynamics  study  is 
to  investigate  the  interactions  of  tidal  flow,  inlet 
configuration,  and  wave  action  at  tidal  inlets  as  a 
guide  to  improvement  of  inlet  channels  and  nearby 
shore  protection  works.  The  study  is  subdivided 
into  four  specific  areas:  model  materials  evalua- 
tion, movable-bed  modeling  evaluation,  reanalysis 
of  a previous  inlet  model  study,  and  prototype  in- 
let studies. 

(1)  Model  materials  evaluation.  This  evaluation 
was  initiated  in  1969  to  provide  data  on  the 
response  of  movable-bed  model  materials  to 
waves  and  flow  to  allow  selection  of  the  opti- 
mum bed  materials  for  inlet  models. 

(2)  Movable-bed  model  evaluation.  The  objective 
of  this  study  is  to  evaluate  the  state-of-the- 
art  modeling  techniques,  in  this  case  movable- 
bed  inlet  modeling.  Since,  in  many  cases, 
movable-bed  modeling  is  the  only  tool  available 
for  predicting  the  response  of  an  inlet  to  im- 
provements, the  capabilities  and  limitations  of 
these  models  must  be  established. 

(3)  Reanalysis  of  an  earlier  inlet  model  study.  In 
1957,  a report  entitled,  "Preliminary  Report: 
Laboratory  Study  of  the  Effect  of  an  Uncon- 
trolled Inlet  on  the  Adjacent  Beaches,"  was 
published  by  the  Beach  Erosion  Board  (now  CERC) . 
A reanalysis  of  the  original  data  is  being 
performed  to  aid  in  planning  of  additional 

GITI  efforts. 

(4)  Prototype  dynamics.  Field  and  office  studies 
of  a number  of  inlets  are  providing  information 
on  the  effects  of  physical  forces  and  artificial 
improvements  on  inlet  morphology.  Of  particular 
importance  are  studies  to  define  the  mechanisms 
of  natural  sand  bypassing  at  inlets,  the 
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response  of  inlet  navigation  channels  to 
dredging  and  natural  forces,  and  the  effects 
of  inlets  on  adjacent  beaches. 

4.  This  appendix  discusses  the  calibration,  base  tests, 
and  predictive  test  of  a numerical  model  of  Masonboro  Inlet, 

N.  C. , conducted  as  part  of  the  evaluation  of  the  state-of-the-art 
inlet  modeling  techniques.  It  presents  the  data  necessary  for  a 
comparison  of  results  of  the  physical  and  numerical  models  dis- 
cussed in  the  basic  report  and  in  the  following  appendixes: 

a.  Appendix  1.  R.  A.  Sager  and  W.  C.  Seabergh,  "Fixed- 
feea  Hydraulic  Model  Results." 

b.  Appendix  2.  F.  D.  Masch,  R.  J.  Brandes , and 

J.  U.  Reagan,  "Numerical  Simulation  of  Hydrodynamics 
(KRE)"  (In  2 Vols). 

c.  Appendix  4 ■ C.  J.  Huval  and  G.  L.  Wintergerst, 
"Simplified  Numerical  (Lumped  Parameter)  Simulation." 


ABSTRACT 

The  purpose  of  this  project  was  to  modify  an  existing 
two-dimensional  numerical  hydrodynamic  model  to  be  applied  to 
Masonboro  Inlet,  North  Carolina.  The  model  essentially  consists 
of  a numerical  solution  to  the  time-dependent  linearized  shallow- 
water  equation.  One  of  the  modifications  was  the  incorporation 
of  tidal  flats  which  are  important  in  the  Masonboro  Inlet  system. 
The  second  was  to  devise  a procedure  for  handling  open  water 
boundaries  at  which  no  boundary  conditions  were  available. 

Using  data  for  September  1969  supplied  by  CERC,  the  friction 
factor  was  adjusted  to  simulate  the  observed  tide  stage  variation. 
Satisfactory  verification  was  obtained  against  tidal  stage  vari- 
ation and  intratidal  current  phasing.  The  magnitude  of  the 
computed  currents  were  consistently  small  but  this  is  not  thought 
to  seriously  delimit  the  model's  utility. 


ACKNOWLEDGMENTS 


The  authors  are  grateful  to  George  H.  Ward  and 
A,  D.  Thomas  of  Tracer  for  fruitful  discussions  and  valuable 
advice  concerning  this  work. 


Vll 


TABLE  OF  CONTENTS 


Section 

Page 

ABSTRACT 

ii 

ACKNOWLEDGMENTS 

iii 

LIST  OF  ILLUSTRATIONS 

vi 

LIST  OF  TABLES 

X 

1.0 

INTRODUCTION 

1 

2.0 

THE  HYDRAULIC  MODEL 

4 

2.1 

The  Basic  Model 

4 

2.2 

Boundary  Conditions 

8 

2.3 

Model  Implementation 

11 

3.0 

MODEL  DEVELOPMENT 

19 

3.  1 

Unspecified  Boundary  Conditions 

19 

3.2 

Flag  Field  Revision 

23 

4.0 

MODEL  VERIFICATION,  RESULTS 

AND  CONCLUSIONS 

26 

4.1 

Verification 

26 

4.2 

Model  Runs 

35 

4.3 

Applicability  of  Present 

Approach  to  Masonboro  Inlet 

105 

4.4 

Recommendations  for  Future  Work 

106 

4.5 

Suggestions  for  Application 
to  Other  Systems 

107 

5.0 

PROGRAMS 

109 

5.1 

General 

109 

5.2 

Program  MASON 

110 

5.3 

Subroutine  FLAGS 

110 

5.4 

Subroutine  MOD 

111 

5.5 

Subroutine  TRACE 

112 

5.6 

Subroutine  WIND 

112 

5.7 

Subroutine  TIDAL2 

113 

viii 


J 


TABlJi:  OF  CONTfc:N'l*S  - CoiUliuiod 


Section 

I’age 

■>.8 

Siilirout Ine  rKlN'il 

1 14 

■>.9 

Subroutine  SEARCH 

116 

5.  10 

Subroutine  WKILE 

1 18 

h.O 

DATA  CARDS 

234 

(>.  1 

C<i  rd  1 

234 

6.2 

Card  2 

239 

6.;j 

Ca  rd  3 

240 

6.4 

Harrier  Cants 

240 

6.5 

Coriolis  Card 

241 

6.6 

Sealu'il  Elevation  Cards 

241 

6.7 

Krlctloii  Scaling  Cards 

241 

6.8 

Initialization  Cards 

242 

6,4 

Flag  Fie  111  Cards 

242 

6.  10 

Wind  Cards 

243 

6.11 

Tide  Cards 

244 

6.  12 

I’rlnt  Cards 

245 

6.13 

Data  Deck  Arrangement 

246 

REFERENCES 

253 

AFI’ENDIX  A 

Flag  Listing 

A-1 

i X 


j 


LIST  OF  ILLUSTRATIONS 


i 


1 


FiR.  No. 

Page 

1.1 

MASONBORO  INLET  AREA 

2 

2.1 

CELL  STRUCTURE  EXAMPLE 

7 

2.2 

DEFINITION  OF  HYDRAULIC  PARAMETERS 

8 

2.3 

CONVENTION  EMPLOYED  IN  DESIGNATION 

OF  HYDRAULIC  VARIABLES 

12 

3.1 

GRID  SYSTEM  FOR  SEPTEMBER  1969 

CASE  (TOTAL  FLOOD  PLANE  INCLUDED) 

20 

4.1 

LOCATION  OF  MASONBORO  INLET 

SAMl’LING  STATIONS 

27 

4.2 

GRID  SYSTEM  FOR  SEPTEMBER  1969  CASE 

29 

4.3 

DEPTH  FIELD  FOR  SEPTEMBER  1969  CASE 

30 

4.4 

DRIVING  TIDE  USED  IN  VERIFICATION  MODEL 

36 

4.5 

MEASURED  AND  PREDICTED  TIDE  FOR 

STATION  1,  VERIFICATION  RUN 

37 

4 . 6 

MEASURED  AND  PREDICTED  VELOCITIES 

AT  STATION  1 NORTH,  VERIFICATION  RUN 

38 

4.7 

MEASURED  AND  PREDICTED  VELOCITIES 

AT  STATION  1 CENT’ER,  VERIFICATION  RUN 

39 

4.8 

MEASURED  AND  PREDICTED  VELOCITIES 

AT  STATION  1 SOUTH,  VERIFICATION  RUN 

40 

4.9 

MEASURED  AND  PREDICTED  TIDE  FOR 

STATION  2,  VERIFICATION  RUN 

41 

4.10 

MEASURED  AND  PREDICTED  VELOCITIES 

AT  STATION  2 NORTH,  VERIFICATION  RUN 

42 

4.11 

MEASURED  AND  PREDICTED  VELOCITIES 

AT  STATION  2 CENTER,  VERIFICATION  RUN 

43 

4.12 

MEASURED  AND  PREDICTED  VELOCITIES  AT 

STATION  2 SOUTH,  VERIFICATION  RUN 

44 

4.13 

MEASURED  AND  PREDICTED  TIDE  FOR 

STATION  3,  VERIFICATION  RUN 

45 

4.14 

MEASURED  AND  PREDICTED  VELOCITIES 

AT  STATION  3 NORTH,  VERIFICATION  RUN 

46 

4.15 

MEASURED  AND  PREDICTED  VELOCITIES 

AT  STATION  3 CENTER,  VERIFICATION  RUN 

47 

1 

1 


X 


LIST  OF  ILLUSTRATIONS  - Continued 


F !>; . No  . 

Pane 

4.16 

MEASURED  AND  PREDICTED  VELOCITIES 
STATION  3 SOUTH,  VERIFICATION  RUN 

AT 

48 

4.17 

MEASURED  AND  PREDICTED  TIDE  FOR 
STATION  4,  VERIFICATION  RUN 

49 

4.18 

MEASURED  AND  PREDICTED  VELOCITIES 
STATION  4 WEST,  VERIFICATION  RUN 

AT 

50 

4.19 

MEASURED  AND  PREDICTED  VELOCITIES 

AT 

STATION  4 CENTER,  VERIFICATION  RUN 

51 

4.20 

MEASURED  AND  PREDICTED  VELOCITIES 
STATION  4 EAST,  VERIFICATION  RUN 

AT 

52 

4.21 

MEASURED  AND  PREDICTED  TIDE  FOR 
STATION  5,  VERIFICATION  RUN 

53 

4.22 

MEASURED  AND  PREDICTED  VELOCITIES 
STATION  5 WEST,  VERIFICATION  RUN 

AT 

54 

4.23 

MEASURED  AND  PREDICTED  VELOCITIES 

AT 

STATION  5 CENTER,  VERIFICATION  RUN 

55 

4.24 

MEASURED  AND  PREDICl’ED  VELOCITIES 
STATION  5 EAST,  VERIFICATION  RUN 

AT 

56 

4.25 

DRIVING  TIDES  FOR  NOVEMBER  1964 
AND  JUNE  1967  CASES 

57 

4.26 

NOVEMBER  1964  SURVEY 

58 

4.27 

GRID  SYSTEM  FOR  NOVEMBER  1964  CASE 

59 

4.28 

DEPTHS  FOR  NOVEMBER  1964  CASE 

60 

4.29 

RESULTS  OF  RUN  FOR  NOVEMBER  1964, 
MEAN  TIDE  FOR  STATION  1 

61 

4.30 

RESULTS  OF  RUN  FOR  NOVEMBER  1964, 
MEAN  TIDE  FOR  STATION  2 

63 

4.31 

RESULTS  OF  RUN  FOR  NOVEMBER  1964, 
MEAN  TIDE  FOR  STATION  3 

65 

4.32 

RESULTS  OF  RUN  FOR  NOVEMBER  1964, 
MEAN  TIDE  FOR  STATION  4 

67 

4.33 

RESULTS  OF  RUN  FOR  NOVEMBER  1964, 
MEAN  TIDE  FOR  STATION  5 

69 

4.34 

RESULTS  OF  RUN  FOR  NOVEMBER  1964, 
SPRING  TIDE  FOR  STATION  1 

71 

LIST  OF  ILLUSTRATIONS  - Continued 


FiR.  No. 

Pa>>e 

4.35 

RESULTS  OF  RUN  FOR  NOVEMBER,  1964, 

SPRING  TIDE  FOR  STATION  2 

73 

4.36 

RESULTS  OF  RUN  FOR  NOVEMBER,  1964, 

SPRING  TIDE  FOR  STATION  3 

75 

4.37 

RESULTS  OF  RUN  FOR  NOVEMBER,  1964, 

SPRING  TIDE  FOR  STATION  4 

77 

4.38 

RESULTS  OF  RUN  FOR  NOVEMBER,  1964, 

SPRING  TIDE  FOR  STATION  5 

79 

4.39 

JUNE  1967  SURVEY 

81 

4.40 

GRID  SYSTEM  FOR  JUNE  1967  CASE 

82 

4.41 

DEPTHS  FOR  JUNE  1967  CASE 

83 

4.42 

RESULTS  OF  RUN  FOR  JUNE  1967, 

MEAN  TIDE  FOR  STATION  1 

84 

4.43 

RESULTS  OF  RUN  FOR  JUNE  1967, 

MEAN  TIDE  FOR  STATION  2 

86 

4.44 

RESULTS  OF  RUN  FOR  JUNE  1967, 

MEAN  TIDE  FOR  STATION  3 

88 

4.45 

RESULTS  OF  RUN  FOR  JUNE  1967, 

MEAN  TIDE  FOR  STATION  4 

90 

4.46 

RESULTS  OF  RUN  FOR  JUNE  1967, 

MEAN  TIDE  FOR  STATION  5 

92 

4.47 

RESULTS  OF  RUN  FOR  JUNE  1967, 

SPRING  TIDE  FOR  STATION  1 

94 

4.48 

RESULTS  OF  RUN  FOR  JUNE  1967, 

SPRING  TIDE  FOR  STATION  2 

96 

4.49 

RESULTS  OF  RUN  FOR  JUNE  1967, 

SPRING  TIDE  FOR  STATION  3 

98 

4.50 

RESULTS  OF  RUN  FOR  JUNE  1967, 

SPRING  TIDE  FOR  STATION  4 

100 

4.51 

RESULTS  OF  RUN  FOR  JUNE  1967, 

SPRING  TIDE  FOR  STATION  5 

102 

5.  1 

FLOW  CHART  FOR  PROGRAM  MASON 

139 

5.2 

FLOW  CHART  FOR  SUBROUTINE  FLAGS 

157 

5.3 

FLOW  CHART  FOR  SUBROUTINE  MOD 

181 

5.4 

FLOW  CHART  FOR  SUBROUTINE  TRACE 

200 

LIST  OF  ILLUSTRATIONS  - Continued 


Fig.  No. 

5.5  FLOW  CHART  FOR  SUBROUTINE  WIND 

5.6  FLOW  CHART  FOR  SUBROUTINE  TIDAL2 

5.7  FLOW  CHART  FOR  SUBROUTINE  PRINTl 


Page 

208 

212 

223 


xiii 


LIST  OF  TABLES 


Table  No.  Page 


3.1 

CORRESPONDENCE  OF  BITS  IN 

COMPUTER  WORD  AND  WHAT  THEY 

CORRESPOND  TO 

24 

3.2 

KEY  TO  FLAG  BITS  1 TO  6 FOR 

RIGHT  AND  TOP  WALLS  OF  CELL 

IN  GRID  SYSTEM 

25 

4.1 

APPROXIMATE  TIDAL-MEAN  CURRENTS, 

FROM  MEASUREMENTS  OF  12  SEPTEMBER  1969 

32 

4.2 

TIDAL  PRISMS 

104 

5.1 

LISTING  FOR  PROGRAM  MASON 

119 

5.2 

LISTING  OF  SUBROUTINE  FLAGS 

149 

5.3 

LISTING  OF  SUBROUTINE  MOD 

163 

5.4 

LISTING  OF  SUBROUTINE  TRACE 

195 

5.5 

LISTING  OF  SUBROUTINE  WIND 

205 

5.6 

LISTING  OF  SUBROUTINE  TIDAL2 

210 

5.7 

CELLS  USED  TO  FIND  VELOCITIES 

AND  TIDES  FOR  STATIONS  USED 

213 

5.8 

VALUES  OF  lOPP  AND  CORRESPONDING 

VARIABLE  FOR  USE  IN  CALL  TO  MODPRI 

214 

5.9 

LISTING  OF  SUBROUTINE  PRINTl 

215 

5.10 

LISTING  OF  SUBROUTINE  SEARCH 

228 

5.11 

LISTING  OF  SUBROUTINE  WFILE 

232 

6.1 

DATA  CARDS 

235 

6.2 

EXAMPLE  OF  DATA  DECK  FOR 

INITIAL  VERIFICATION  RUN 

247 

6.3 

EXAMPLE  OF  DATA  DECK  FOR 

RESTART  OF  VERIFICATION  RUN 

251 

xiv 


1.0 


INTRODUCTION 


The  objective  of  this  study  was  the  adaptation  of  T^acor's 
two-dimensional  hydraulic  model  to  Masonboro  Inlet,  North  Carolina, 
Fig.  1.1,  in  order  to  predict  the  water  surface  time  history  and 
current  velocities  from  Masonboro  Inlet  for  two  hydrographic  condi- 
tions. The  project  consisted  of  three  main  phases;  a)  adaptation  of 
Tracor's  model  to  Masonboro  Inlet,  b)  adjustment  of  the  model  to 
allow  reproduction  of  the  prototype  tides  and  currents  of  12 
September  1969,  and  c)  prediction  of  tides  and  currents  for  the 
additional  hydrographic  conditions  of  the  inlet  for  November  1964 
and  June  1967  using  idealized  mean  and  spring  tides  in  the  ocean. 

Tracor's  hydraulic  model  was  initially  developed  in  the 
Galveston  Bay  Project  modeling  program  and  is  described  in  Espey 
^ a^.  (1971).  The  model  computes  the  dynamic  vertical-mean  water 
velocity  components  in  the  x-  and  y-  directions  for  each  grid 
cell  in  the  bay  system;  these  velocities  are  the  hydrodynamic 
results  of  the  major  physical  influences  on  the  estuary  or  inlet. 
Including  tide,  freshwater  and  wastewater  inflows,  bottom  roughness, 
physiography  and  winds.  The  model  has  been  used  extensively  on 
Galveston  Bay  as  well  as  on  Nueces  Bay  and  Corpus  Christ!  Bay. 

Problems  normally  encountered  in  changing  a hydraulic  model 
from  one  set  of  physiographic  conditions  to  another  were  aggravated 
in  this  study  by  the  fact  that  a new  flag  field  had  to  be  developed 
to  allow  for  flooding  of  the  tidal  flats  and  the  unspecified 
boundary  conditions  at  the  ends  of  inlet  channels.  The  development 
of  a new  flag  field  logic  was  made  necessary  because  the  logic 
originally  contained  in  the  program  was  not  dynamic  in  nature, 
i.e.  represented  the  estuary  as  a "fixed-bed"  configuration. 

Program  code  also  did  not  contain  any  provision  for  the  unspecified 
boundary  conditions,  and  this  had  to  be  added  to  the  program. 
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FIG.  1.1  MASONBORO  INLET  AREA 


The  basic  theory  and  formulation  of  the  numerical  model 
is  described  in  Section  2.0.  The  above  modifications  necessary 
for  application  to  Masonboro  Inlet  are  detailed  in  Section  3.0. 
Verification  results  and  the  computed  results  for  the  1964  and 
1967  cases  are  presented  in  Section  4.0.  In  Section  5.0  the 
FORTRAN  programs  are  presented  together  with  their  corresponding 
flow  charts  and  listings.  The  data  deck  arrangement  and  a dis- 
cussion of  each  of  the  input  parameters  are  given  in  Section  6.0. 
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2.0 


THE  HYDRAULIC  MODEL 


The  basic  mathematical  hydraulic  model  used  was  the  same  as 
that  described  in  Espey  et  al.  (1971).  However,  extensive  reprogram- 
ming was  required  to  handle  the  tidal  flats  and  the  unspecified 
boundary  conditions.  The  model  considers  the  two  horizontal  dimen- 
sions representing  the  areal  extent  of  the  system  using  vertically 
integrated  equations  of  motion.  The  model  is  dynamic;  that  is, 
it  describes  the  time-varying  aspects  of  the  hydraulic  phenomena. 


2.1  The  Basic  Model 


The  differential  equations  comprising  the  basic  mathe- 
matical model  are  referred  to  as  the  "linearized  shallow  water  wave 
equations"  or  "the  storm  surge  equations".  The  formulation 
employed  in  the  Tracor  hydraulic  model  follows  closely  that 
used  by  Reid  and  Bodine  (1968)  in  their  study  of  storm  surges 
in  Galveston  Bay. 


The  vertically  integrated  equations  of  motion  and 
continuity  which  form  the  basic  mathematical  hydraulic  model 
are: 


■^  + gD  = KW»cose  - fQQ^D-^  + Qy2u;sin([4,  (1) 

SQ  iu 

+ gD  = KW’sine  - fQQyD-^  - Q^2a:sin«(,  (2) 


and 


ill. 

dt  9x  dy 


R, 


(3) 


4 


wher 


and 


X,  y = horizontal  Cartesian  coordinates, 
t = t ime , 

Q , Q = vertically  integrated  x and  y components  of 
X y 

flow  per  unit  width,  respectively, 
g = acceleration  due  to  gravity, 

D - total  water  depth, 

H = water  eleviition  with  respect  to  MSL, 

K » dimensionless  wind  stress  coefficient  from 
Wu  (1969), 

W - wind  speed, 

9 “ angle  between  wind  vector  and  the  x-axis, 
f = dimensionless  friction  coefficient  after  Reid 
and  Bodine  (1968), 


Q 

R 


yQj.^+Qy’  = magnitude  of  flow  per  unit  width, 

angular  velocity  of  the  earth, 
lat i tude , 
rainfall  rate. 


It  will  be  noted  that  in  equations  (1)  and  (2)  the 
advection  of  momentum  terms  are  omitted;  this  omission  is,  in 
fact,  the  distinguishing  feature  of  the  storm-surge  equations. 

The  reasons  for  this  omission  are  twofold:  first,  the  nonlinear 
character  of  the  advection  of  momentum  terms  renders  the  math- 
ematics practically  intractable,  so  that  their  omission  results 
in  a considerable  mathematical  simplification,  and,  second, 
these  terms  are  not  particularly  important  for  the  calculation 
of  tidal  hydraulics  in  shallow  embayments  or  coastal  areas. 

With  regard  to  the  former,  the  employment  of  numerical  methods 
does  not  avoid  the  mathematical  problems.  In  fact,  the  nonlinear 
terms  de-stabilize  the  finite-difference  computations  even  beyond 
that  inherent  in  linear  stability  requirements.  They  further 


introduce  additional  sources  of  numerical  error  in  allowing 
nonlinear  interaction  between  waves  of  various  scales,  thus 
permitting  several  types  of  "aliasing"  phenomena,  all  of  which 
can  be  disastrous  computationally  unless  treated  with  con- 
siderable sophistication  (see  Kreiss  and  Oliger  (1973)). 

With  regard  to  the  latter,  use  of  the  storm  surge  equations  in 
shallow  water  tidal  hydrodynamics  is  exemplified  by  Defant  (1961), 
Dronkers  (1964),  Sverdrup  ^ (f942),  Neumann  and  Pierson  (1966), 

Lazanoff  (1971),  Masch  ^ £l.  (1969),  and  many  others.  Espey  £t  al . 
(1971)  note  that  even  though  this  approximation  may  be  generally 
justified,  there  can  be  local  regions  where  it  fails,  e.g.  in 
the  vicinity  of  high-volume  inflow  sources  such  as  tributary 
mouths  or  power  plant  cooling  water  discharges.  In  these  local- 
ities, the  nonlinear  terms  must  be  retained.  Fortunately,  there 
do  not  seem  to  be  any  regions  within  Masonboro  Inlet  where  this 
is  required. 

To  implement  the  above  mathematical  model  (the  equations), 
a means  of  relating  the  model  to  a physical  system  is  required. 

This  is  accomplished  by  superimposing  a lattice  or  grid  system 
over  the  area  to  be  modeled.  The  spacing  within  the  lattice 
is  determined  by  the  degree  of  spatial  resolution  which  is  required 
by  the  particular  problem.  Required  resolution  may  range  from  a 
few  hundred  feet  to  over  a mile  depending  upon  the  phenomenon  to 
be  investigated.  The  boundaries  of  the  physical  system  must  be 
represented  within  the  cell  structure  by  the  "walls"  of  the  cells, 
therefore  requiring  a square  grid  representation  of  the  physical 
system,  as  demonstrated  in  Figure  2.1.  In  the  example,  some  of 
the  detail  of  the  real  boundary  is  lost  with  the  cell  structure 
representation.  A smaller  grid  spacing  could  have  been  used; 
the  finer  the  grid,  the  better  the  representation.  However, 
there  is  generally  a trade-off  between  more  accurate  spatial 
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representation  and  cost,  since  a finer  grid  requires  more  computer 
time  to  solve  the  necessary  equations. 

The  grid  system  serves  as  the  structure  upon  which 
the  mathematical  model  and  the  physical  system  are  joined.  The 
various  parameters  are  assigned  values  and  positions  within  the 
cell  structure.  Figure  2.2  shows  the  positions  within  a grid 
where  variables  are  defined  in  this  model. 


7 


FIG.  2.2  DEFINITION  OF  HYDRAULIC  PARAMETERS 


At  the  center  of  each  cell  a depth  Z of  the  bottom  of  the  bay 

with  respect  to  mean  sea  level  (MSL)  is  assigned  to  represent  the 

topography  of  the  estuary.  Again,  the  spatial  detail  of  the  model  is 

af  fee  ted  by  the  ce  1 1 s ize  , as  the  depth  assigned  to  each  cell  must 

represent  an  average  over  the  corresponding  area  of  the  bay.  As 

the  water  level  H relative  to  some  datum  changes  dynamically 

(while  the  model  is  being  exercised)  the  instantaneous  water 

depth  D is  obtained  by  algebraically  adding  H to  the  constant  Z. 

Also  note  in  Figure  2.2  that  the  components  of  flow  per  unit 

width  (Q  and  Q ) are  defined  at  the  right  side  and  top  side  of 
X y 

each  cell,  respectively. 

2 . 2 Boundary  Conditions 

Numerous  boundary  conditions  are  necessary  in  the 
hydraulic  model  to  reproduce  physical  conditions.  Among  these 
are  the  simulation  of  land  boundaries,  open  water  boundaries, 
and  submerged  barriers  and  reefs.  In  general,  the  boundary 
conditions  are  implemented  by  assigning  prescribed  values  to 
the  components  of  flow  per  unit  width  (Q^  and  Q^)  or  the  water 
level  (H)  relative  to  the  datum.  Land-water  boundaries  in  the 
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model  are  handled  in  a straightforward  manner  by  simply  setting  the 
component  of  flow  per  unit  width  normal  to  the  boundary  equal  to 
zero;  e.g.,  Qy  " 0 Qy  “ 0 . depending  upon  the  boundary's 

orienta  ion.  Open  water  boundaries  are  required  to  input  a driving 
tide  at  the  opening  of  the  bay  to  the  ocean.  This  requires  that 
the  water  elevation  with  respect  to  the  datum  be  specified.  This 
tidal  record  is  obtained  from  gauge  records  of  the  United  States 
Corps  of  Engineers  (USCE) . Given  this  time  history  of  water  level, 
the  flow  per  unit  width  is  calculated  by  a modification  of  equations 
(1)  and  (2). 

gl>||=  .fQQ^D-2  (4) 

^ + gl>|^  = -fQQyD-2  (5) 

Generally,  the  open  boundary  is  oriented  so  that  either  x or  y 
is  constant,  hence  only  one  of  (4)  and  (5)  is  employed. 

An  initial  distribution  of  H within  the  model  domain 
is  specified  arbitrarily  (often  taken  to  be  constant  for  convenience) , 
and  the  observed  tidal  stage  variation  is  specified  at  the  boundary. 
From  this  initial  condition,  3H/9x  and/or  SH/3y  in  (4)  and  (5) 
may  be  computed,  and  the  time  evolution  of  , Qy  and  H deter- 

mined therefrom.  The  errors  introduced  by  the  initial  distribution 
of  H induce  a transient  response  in  the  system  hydraulics,  but 
this  transient  soon  propagates  out  of  the  system  (a  consequence  of 
the  hyperbolic  nature  of  equations  (1)  and  (2))  , the  precise  time 
required  depending  upon  its  physiographic  and  hydraulic  features. 

Other  open  water  boundaries  may  occur  within  an  inlet 
where  no  tide  records  may  be  available,  for  example,  where  the 
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channels  in  Masonboro  Inlet  intersect  the  grid  boundary.  When 
this  occurs  there  appear  to  be  two  recourses  to  resort  to,  1) 
make  up  a tidal  record  or  obtain  the  tidal  record  from  other 
considerations,  or  2)  using  physical  constraints,  extrapolate 
the  boundary  condition.  The  second  method  follows  a suggestion 
of  Bodine  (private  communication)  and  was  used  in  this  appli- 
cation to  Masonboro  Inlet.  The  variable  extrapolated  is  the 
change  in  water  level  H.  A simple  linear  extrapolation  is 
used;  i.e.. 


ah.  = 2aH.  . - AH. 

1 1-1  1-2 


where  the  A indicates  the  change  between  time  steps  and  i is 
the  cell  index.  The  additional  physical  constraints  are  also 


(superscript  indicates 

relative  time  step) 

Ebb  Tide 

Flood  Tide 

s H.^ 

1 1 

Hi  2 

When  one  reflects  that  the  hydraulic  behavior  at  these  open 
boundaries  is  in  reality  determined  by  the  interaction  between 
the  tidal  hydraulics  of  the  inlet  area  itself  (which  is  within 
the  bounds  of  the  computational  model)  and  that  of  the  adjicent 
waterways  and  tidal  inlets  both  upcoast  and  downcoast  (which  are 
not  within  the  boundaries  of  the  model),  then  it  becomes  apparent 
that  this  approach  may  not  be  adequate.  However,  these  boundaries 
can  be  handled  with  physical  fealty  only  by  either  acquiring 
empirical  hydraulic  data  to  be  input  as  boundary  conditions,  or 
by  extending  the  model  bounds  to  encompass  the  entirety  of  the 
coastal  hydraulic  system.  The  former  is  impossible  since  the 
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required  data  are  not  available,  and  the  latter  is  manifestly 
beyond  the  scope  of  the  present  project.  Accordingly,  the  above 
approximation  was  elected. 

Boundary  conditions  for  submerged  barriers  and  reefs 
closely  follow  those  used  by  Reid  and  Bodine  (1968).  The  discharge 
over  a submerged  barrier  is  taken  as  that  for  a submerged  weir, 
specifically 

^y^  “ * ^s°b  - Ha  1 . (6) 

where  is  the  barrier  discharge  coefficient,  is  the  water 

depth  over  the  barrier,  and  jHi  - Hj [ is  the  difference  in  water 
level  on  cither  side  of  the  barrier.  Q_  or  Q is  computed 
depending  upon  the  orientation  of  the  barrier  with  respect  to 
the  cell  structure  and  the  algebraic  sign  is  assigned  to  correspond 
to  flow  directed  toward  the  low-head  side  of  the  barrier. 

2 . 3 Model  Implementation 

Final  implementation  of  the  hydraulic  model  requires 
that  the  differential  equations  (Equations  (1),  (2),  and  (3))  be 
written  in  an  explicit  finite-difference  form  using  one-sided  tem- 
poral and  centered  spatial  differences  with  the  appropriate  spatial 
averaging.  These  finite-difference  equations  can  then  be  advanced 
through  time  to  provide  a time  history  of  water  surface  behavior 
and  components  of  flow  per  unit  width  at  all  grid  points  described 
in  the  model  grid.  These  compose  the  principal  output  of  the 
hydraulic  model,  because  from  these  the  tidal  history  at  any  point 
in  the  bay  and  the  spatial  and  temporal  distribution  of  flow  and 
horizontal  velocity  can  be  determined. 

In  Figure  2.2,  the  points  within  the  cell  structure 
at  which  the  primary  variable  is  defined  are  depicted  in  general. 
Wlien  implementing  the  f ini te -di f fercnce  solution,  a scheme  for 
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spatially  indexing  the  variables  and  associating  the  indices 
with  the  cell  structure  is  required,  as  well  as  a determination 
of  the  relationship  of  the  variables  with  one  another  in  time.  The 
spatial  orientation  is  shown  in  Figure  2.3.  (Note  that  within 
each  individual  cell,  the  scheme  of  Figure  2.2  is  maintained . ) The 
first  index  on  each  variable  (i)  increases  in  the  positive  x 
direction,  and  the  second  (j)  in  the  positive  y direction. 

The  lower  left  cell  in  the  structure  is  therefore  cell  (1,1). 

(For  simplicity,  all  variables  are  shown  only  on  cell  (i,  j)  in 
F igure 2 . 3 , but  their  location  remains  the  same  at  any  other  cell.) 
Wind  stress,  friction,  and  Coriolis  force  terms  are  computed 
at  locations  consistent  with  the  particular  flow  (Q^  or  Q^) 
that  is  affected. 


The  temporal  scheme  for  assigning  the  variables  is 
very  important  to  accuracy  and  simplicity  of  the  model  formulation. 
When  advancing  the  finite-difference  equations  through  time,  it 
is  important  that  all  the  terms  involved  in  the  equation  be 
computed  for  the  same  instant  in  time.  To  accomplish  this,  the 
variable  H , and  associated  variables,  D , Z , and  R , and 
the  variables  and  , are  assigned  positions  in  time  one- 

half  time  increment  (At)  apart.  That  is  to  say  Q and  Q 
are  computed  at  even  half-time  steps,  t = nAt  , and  H is  computed 
at  odd  half-time  steps,  t = (n  + ^)At  , where  n takes  on  increas- 
ing integer  values.  By  adopting  this  convention,  the  time  associ- 
ated with  the  quantity  (Q  _ q same  as  that 

of  H''  (the  superscripts  referring  to  the  time)  and  like- 
wise (H("+3/2)At  _ j^n+^)At)  the  same  time  as  _ Reference 

to  the  finite -difference  equations  below  will  show  that  this 
convention  yields  equivalent  time  throughout  each  equation. 


FIG.  2.3  CONVENTION  EMPLOYED  IN  DESIGNATION 
OF  HYDRAULIC  VARIABLES. 


The  finite-difference  forms  of  Equations  (1) , (2) , 
and  (3) , which  form  the  basic  hydraulic  model  and  are  successively 
advanced  through  time  to  obtain  time  histories  of  water  elevation 
and  flow,  are  given  by: 


,n+l  ^ 1 


^X.  2AX  K^i.j  + Di+l,j;  ^Vl.j  - Hi.PJ 


+ AtKW^cos  S + atp*^  2(DSin«S 
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,n+l 
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where 


(10) 


IzUu 


+ Q 


X . . 

J-  .-1 


+ Q. 


1-1. 1+1 


+ Q 


i.-i+i 


and 


+ Q + Q 

i ^1+1, 1-1  yj+l, i 
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Also,  the  effect  of  friction  has  been  incorporated  into  the 
and  after  Reid  and  Bodine  (1968). 


and 


= 1 + fAt 


1 + fAt 


It  is  also  preferable  to  incorporate  the  effect  of  submerged 
barriers  into  an  equivalent  friction  factor,  specifically: 


(11) 


terms 


(12) 


(13) 
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and 


r - 1 + 

^1.  . " ^ ^ 
i-.J 


<■>1+1,1  '%  ,' 


"2.  . 
i.J 


At 
2 Ax 


(D 


• -^1  + D-  •)  IQ 

l.J+l  l.J  ' ; 


(14) 


(15) 


depending  upon  Che  orientation  of  the  barrier  within  the  cell 
structure . 


The  size  of  the  time  increment  (At)  which  can  be 
used  to  advance  the  finite  difference  equations  through  time  is 
dictated  by  numerical  stability.  Platzman  (1958)  presents  the 
following  stability  requirement: 


where  As 
Ay  , and 


At  ifi 


As 


V2g  D 


max 


(16) 


is  the  grid  spacing  in  both  directions,  i.e.,  As  = Ax  = 

D is  the  maximum  water  depth  expected  during  the  run. 

max  r r o 


After  the  grid  structure  has  been  determined,  the 
hydraulic  model  is  operated  as  follows: 


j 1)  Initial  values  for  all  variables  are  set.  These 

1 initial  conditions  may  be  from  a previous  model  operation  or  some 

, sec  of  unrealistic  conditions  which  must  be  overcome  by  operating 

I the  model  through  an  initial  transient  stage; 

2)  Using  the  values  of  and  Q at  time  0 and  H 

X y 

at  time  4t/2  , the  values  of  Q and  Q at  At  and  H at 

^ y 

I 3At/2  are  computed  using  the  finite-difference  forms  presented 
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above.  Boundary  conditions  for  submerged  barriers,  land  boundaries, 
freshwater  inflow,  and  tidal  input  are  specified  as  required; 

3)  Step  2 is  repeated  as  tin.e  is  advanced,  computing 
and  Qy  at  (n+l)3t  and  II  at  (n+3/2)AL  as  n increases; 

4)  In  the  notation  (i,  j)  the  i index  corresponds 
to  the  X axis  or  direction  and  the  j index  corresponds  to  the 

y axis  or  direction.  Normally  the  origin  would  be  in  the  lower 
lefthand  corner  and  the  i index  would  increase  from  left  to 
right  and  the  j index  from  bottom  to  top.  In  this  notation 
the  cells  with  the  same  i index  would  be  a column  and  those 
with  the  same  j index  would  be  a row.  However,  in  a two- 
dimensional  computer  array  the  subscript  (1,1)  is  normally  taken 
to  be  in  the  upper  lefthand  corner,  with  the  first  subscript 
indicating  the  row  and  the  second  subscript  the  column.  Therefore, 
in  transferring  the  grid  indices  from  the  actual  grid  to  the  array 
in  the  computer  the  grid  is  rotated  90°  in  a clockwise  direction 
and  the  rows  of  the  grid  become  column  in  the  computer  array  and 
the  column  of  grid  become  rows  in  the  computer  array.  Therefore, 
for  the  purpose  of  clarity  hereafter  when  a row  or  column  is 
referred  to  it  is  as  defined  in  the  actual  grid  system,  not  as 
defined  in  the  computer  array.  That  is,  a row  is  parallel  to 
the  X axis  and  a column  is  parallel  to  the  y axis. 

The  order  in  which  the  cells  are  processed  is 
as  follows,  assuming  an  n by  m grid.  The  program  starts 
with  the  first  cell  in  row  one  (cell  [1,1],  the  bottom  lefthand 
cell)  and  works  its  way  across  the  row  to  the  last  cell  in  row 
one  (cell  [l,m]).  The  program  then  moves  up  to  the  first  cell 
in  the  second  row  (cell  [2,1J)  and  works  its  way  across  the 
second  row  to  cell  [2,m].  After  the  program  has  finished  the 
second  row,  it  moves  to  the  third.  It  continues  this  process 
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until  it  has  reached  the  last  cell  in  the  last  row,  (cell  [n,ni]) 
nt  which  point  the  computations  are  complete  for  that  time  step. 
In  treating  any  given  cell,  the  right  face  is  always  treated 
before  the  top  face. 
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3.0 


MODEL  DEVELOPMENT 


Additional  development  of  the  existing  computer  program 
was  necessary  to  apply  the  two-dimensional  hydraulic  model  to 
Masonboro  Inlet.  The  areas  that  needed  further  development  were 
1)  the  procedure  for  handling  unspecified  boundary  conditions, 
and  2)  the  revision  for  the  flag  field  for  tidal  flats. 

3 . 1 Unspecified  Boundary  Conditions 

In  the  grid  system  adopted  (^x  , Ay  “ 300  feet),  the 
three  arms  of  the  inlet  intersect  the  grid  boundaries  (points  A, 

B,  and  C in  Fig.  3.1).  At  these  intersections  there  are  open 
water  boundaries  where  some  form  of  boundary  condition  is  required. 
There  are  two  kinds  of  boundary  conditions  that  can  be  used  in  an 
open  water  boundary:  1)  the  flow  rate  can  be  specified,  or  2)  the 
water  elevation  can  be  specified.  In  the  dynamic  model  these 
boundary  conditions  will  be  time  varying.  However,  in  the  data 
available  to  this  project  there  were  no  measurements  that  could 
be  used  as  a boundary  condition  at  these  points.  Therefore,  some 
means  had  to  be  developed  to  handle  these  boundaries. 

As  noted  in  the  preceding  chapter  there  are  basically 
two  approaches  open  to  handle  this  problem  in  the  present  model. 
These  are  1)  a set  of  water  level  records  can  be  fabricated  to 
use  as  the  boundary  conditions,  or  2)  a means  of  extrapolating 
a variable  to  use  as  a boundary  condition  needs  to  be  found. 

The  latter  approach  was  chosen  because  the  former  could  be 
approached  in  two  ways,  neither  of  which  are  considered  satis- 
factory. One  way  is  to  prescribe  a priori  the  tidal  record, 
however  this  introduces  subjective  error.  The  other  is  to  imple- 
ment a model  encompassing  a larger  area  and  using  the  results 
from  that  model  to  specify  the  tides  at  the  boundaries  of  the 
present  model.  It  was  felt,  however,  that  this  approach  deviated 
too  much  from  the  original  project  plan. 
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FIG.  3.1  GRID  SYSTEM  FOR  SEPTEMBER  1969  CASE 
(TOTAL  FLOOD  PLANE  INCLUDED) 

(Grid  size  = 300  feet) 
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Banks  Channel 


Once  the  second  approach  had  been  elected,  there 
remained  the  problem  of  determining  which  variable  to  extrapolate. 
The  variables  that  are  available  are  the  water  level  H , the 
change  in  water  level  , and  the  flow  rate  Q . It  was  felt 
that  the  flow  rate  was  not  a suitable  variable  for  extrapolation 
because  it  is  too  dependent  on  the  bottom  topography  and  on  other 
flows  into  the  cell.  It  was  decided  that  would  be  the  better 

variable  to  extrapolate. 

A linear  extrai'olation  procedure  was  used.  The  change 

in  H,  , is  found  by  the  equation 
1 , J 


Cells  internal  to  grid 


Unspecified 

Boundary 


v+1  , 
1,J- 


v+1 

I-1,J 


H 


V 

H-1,J 


V+1 

1-2, J 


H 


V 

1-2, J 


where  superscript  v indicates  the  time  step.  Similar  equations 
are  used  if  one  of  the  other  cell  walls  has  an  unspecified  boundary 
condition.  The  new  water  level  at  cell  (I,J)  is  found  by  adding 
to  the  old  water  level,  i.e. 


uV+1  _ 


v+1 


'I.J 


+ ah. 


I.J 
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is  then 


The  newly  found  change  in  water  level 
used  in  equation  (9),  page  13,  to  find  the  flow  associated  with 
the  cell  wall  having  the  unspecified  boundary  condition.  In  the 
example  given  above,  the  resulting  equation  would  be 


S,J 


3V+I 


.v+1 


^v+1 


A requirement  that  is  a result  of  this  extrapolation 
procedure  is  that  the  cells  (I-1,J)  and  (1-2, J)  must  be  flooded 
while  cell  (I,J)  is  flooded,  otherwise  erroneous  results  would 
occur.  This  requirement  is  important  in  tidal  flats  which  have 
unspecified  boundary  conditions  as  do  the  tidal  flats  to  the 
west  of  Banks  Channel  and  north  of  Shinn  Creek,  see  Fig.  3.1. 

At  first  the  program  was  operated  using  only  the 
extrapolation  procedure  without  any  additional  physical  constraints. 
However,  it  was  discovered  that  to  maintain  computational  stability 
the  following  physical  constraints  on  the  water  level  in  the  cell 
for  which  the  extrapolation  was  performed  had  to  be  included.  The 
equations  given  correspond  to  the  above  example. 


For  ebb  tide: 

1.  The  extrapolated  water  level  must 
be  less  than  the  old  water 
level: 


2.  The  extrapolated  water  level 

must  be  greater  than  the  water  level 
in  the  cell  from  which  the  extrap- 
olation was  performed: 


H 


v+1 

I,J 


> H 


v+1 

I-1,J  • 
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For  llooil  Lliio: 


Till'  I'xLiMpo  hiLcii  wiiLor  It'vol 
imisL  l>o  groiilor  tli;m  Lho  n U1 
walt'i'  levi'l: 

v+l  V 
'‘l,J  ^ '‘l,J  • 

The  ext  rape  la  ted  water  level 
must  lie  less  than  tlie  water 
level  in  the  fell  from  whieli 
the  extrapolation  was  performed; 


Field  Revision 


The  flag  field  is  the  means  by  whieh  the  pro>;ram  knows 
what  ea  Icii  la t ions  ti>  perform.  It  indieates  the  nature  i>f  the 
fell  wall,  i.e.  whether  there  is  flow  through  It,  if  it  is  a 
land  hiHindary,  etc.  I’he  flag  field  that  was  originally  employed 
in  Tracor's  hydraulic  model  was  a fixed  flag  lie  Id;  that  is,  once 
specified  it  did  not  change  as  the  program  ran.  I'herefore,  the 
pri'gram  coulii  not  have  cells  in  it  which  were  ilralneil  or  inundated. 
Where  there  were  extensive  tidal  flats  the  program  could  not 
adequately  represent  the  area.  Since  there  are  several  tidal 
flats  in  the  Masonhoro  Inlet,  the  flag  field  had  ti'  he  revised 
to  handle  the  cells  in  these  areas.  Furthermiire , the  flag  l\’r 
the  unspecified  houndary  .'ilso  had  to  he  implemented.  The  olil 
flag  field  system  did  not  lend  itself  to  being  efficiently 
mollified  to  become  a dynamic  flag  field,  therefore,  a completely 
new  flag  field  system  was  developed. 


The  flag  system  developed  in  this  project  is  based 
upon  setting  hits  in  the  computer  word.  Depending  upon  which 
hits  iire  set,  various  branches  in  the  program  flow  are  selected. 

The  last  (least  significant)  D bits  of  the  ci'mputer  word  are  used. 
In  the  following  discussion  bit  positions  are  given  from  the  right. 
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that  is,  the  rightmost  bit  is  bit  number  1.  Also,  that  a bit  is 
set  means  that  it  has  the  value  one  (1).  If  it  is  not  set,  it 
is  zero  (0). 

The  significance  of  the  bit  positions  is  given  in 
Table  3.1.  When  bits  7 or  8 are  set,  a no-flow  condition  is 
indicated  for  the  corresponding  walls . 


TABLE  3.1 

CORRESPONDENCE  OF  BITS  IN  COMPUTER  WORD 
AND  WHAT  THEY  CORRESPOND  TO 


Bits 


Indicate 


1 to  3 
4 to  6 

7 

8 
9 

>9 


Condition  of  right  wall 
Condition  of  top  wall 
Flow  or  no-flow  - left  wall 
Flow  or  no-flow  - bottom  wall 
Cell  permanently  flooded 
Not  used 


Bit  9 is  set  when  a cell  is  always  flooded.  The  key  to  bits 
1 to  3 and  4 to  6 is  given  in  Table  3.2.  A listing  of  all 
possible  flag  combinations  is  given  in  Appendix  A along  with 
their  decimal  equivalent.  This  information  is  necessary  fo  ■ 
decoding  a flag  field  print-out. 


For  further  notes  on  how  to  specify  the  initial  flags  read 
by  the  program  see  Section  6. 8 on  the  flag  cards. 
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TABLE  3.2 

KEY  TO  FLAG  BITS  1 TO  6 FOR  RIGHT 
/ND  TOP  WALLS  OF  CELL  IN  GRID  SYSTEM 


0 

0 

0 

Free  flow 

1 

1 

1 

Barrier 

1 0 

2 

2 

Tidal  input 

1 1 

3 

3 

Special 

boundary 

10  0 

4 

4 

External 
tidal  input 

10  1 

5 

5 

Variable 

boundary 

110 

6 

6 

Externa  I"*” 

1 

111 

7 

7 

Permanent 

boundary 

i 0 

0 

0 

Free  flow 

1 

8 

1 

Barrier 

1 0 

16 

2 

Tidal  input 

1 1 

24 

3 

Special 

boundary 

10  0 

32 

4 

External 
tidal  input 

10  1 

40 

5 

Variable 

boundary 

110 

48 

6 

Externa  1"*^ 

111 

56 

7 

Permanent 

boundary 

•ff 

Octal  equivalent  of  three  digits  composing  flag  for  that  wall. 

All  cell  walls  that  are  not  involved  in  calculations,  i.e.,  cell 
walls  internal  to  a land  mass. 

Bits 


Right 

1 Wall  Decimal  Octal  ^ 

4 321  Equivalent  Equivalent  Wall  Status 
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MODEL  VERIFICATION,  RESULTS  AND  CONCLUSIONS 


4 . 1 Verification 

The  model  was  verified  using  the  September  1969  data 
supplied.  Verification  was  to  consist  of  adjusting  the  model  to 
reproduce  as  closely  as  possible  the  measured  tides  and  velocities 
provided  in  the  data.  The  locations  of  the  sampling  stations  are 
shown  in  Fig.  4.1.  The  actual  process  of  verification  consists 
of  operating  the  model  with  one  set  of  friction  factors,  checking 
the  results,  and  then  rerunning  using  a different  set  of  friction 
factors.  This  process  is  repeated  until  the  best  reproduction 
of  tides  and  velocities  is  obtained. 

It  was  originally  planned  to  include  the  flood  plain  north 
of  Shinn  Creek  and  to  the  west  of  Banks  Channel  as  shown  in  Fig.  3.1. 
However,  numerical  problems  were  encountered  while  the  flood  plain 
was  draining.  Oscillations  were  set  up  whenever  a cell  emptied, 
which  caused  the  cells  to  alternately  flood  and  drain.  Another 
problem  encountered  on  the  flood  plains  was  the  occasional  drain- 
ing of  a cell  while  a shallower  cell  adjacent  to  it  was  still 
flooded.  This  would  cause  the  cell  to  dry  up  then  flood  again. 

This  may  have  been  associated  with  the  aforementioned  oscillations 
or  may  have  been  a separate  numerical  problem  arising  from  the 
flow  from  the  shallower  cell  to  the  deeper  cell  not  being  large 
enough.  An  attempt  was  made  to  rectify  these  problems  by  adjust- 
ing the  friction  coefficients  in  the  flood  plain.  However,  this 
did  not  correct  the  difficulty,  and  it  was  judged  that  the  problem 
did  not  merit  the  time  which  would  be  required  to  pursue  other 
approaches.  Therefore,  because  it  was  not  the  flood  plain  itself 
but  its  boundaries  with  Shinn  Creek  and  Banks  Channel  that  were 
important  in  the  computations,  this  flood  plain  was  eliminated 
from  the  model  and  only  its  boundaries  with  the  two  creeks  modeled. 
The  tidal  flats  at  the  intersection  of  Masonboro  Channel  and  Shinn 
Creek  are  left  in  the  computations. 


LOCATION  OF  MASONBORO  INLET  SAMPLING  STATIONS 


The  grid  structure  that  was  used  for  verification  is 
shown  in  Fig.  4.2.  The  corresponding  depths  used  are  shown  in 
Fig.  4.3.  The  depths  were  found  by  plotting  cross  sections  of 
the  channel  passing  through  the  grid  cell  centers.  Average  depths 
were  found  by  planimetering  the  cross  sectional  areas  which  were 
then  divided  by  the  cell  width  (300  feet).  In  Fig.  4.3  a depth 
of  99.9  is  inserted  to  signal  a cell  for  which  direct  computations 
are  not  made,  viz.  dry  land  and  unused  cells.  The  status  of  a 
particular  cell  marked  99.9  should  be  determined  from  Fig.  4.2 
or  from  the  flag  field  proper. 

The  stability  criteria  given  in  Section  2 (equation  (16), 
page  16)  puts  an  upper  limit  of  6 seconds  on  the  time  step.  There- 
fore, a 6 second  time  step  was  tried  initially;  however,  the 
computations  proved  to  be  numerically  unstable.  In  order  to 
maintain  stability,  the  time  step  had  to  be  reduced  to  5 seconds. 

The  results  of  the  verification  are  presented  in 
Figs.  4.4  to  4.24.  In  the  verification  runs  the  model  was 
started  at  0400  hours  with  an  initial  tidal  level  of  .951  feet 
throughout.  The  tidal  stage  verification  is  considered  adequate 
both  in  amplitude  and  phasing.  The  current  velocity  time  histories 
calculated  by  the  model  appear  satisfactory  in  zero-crossing  and 
in  phasing  in  general.  Their  amplitudes  are  low,  however,  in 
comparison  with  the  measured  currents,  and  sensitivity  tests 
indicated  that  no  realistic  variation  of  the  friction  coefficients 
could  yield  amplitudes  as  high  as  those  measured. 

There  can  be  several  contributing  factors  to  the  amplitude 
difference  The  most  obvious  seems  to  lie  in  the  fact  that  the 
system  modeled  is  effectively  an  "open"  system,  thus  the  distri- 
bution of  water  level  through  the  system  may  not  uniquely 
determine  the  velocity  pattern.  Insofar  as  continuity  is 
concerned,  any  divergence- free  (two-dimensionally)  velocity 
field  may  be  added  to  the  model  solution  without  violating  (3) 
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FIG.  4.2  GRID  SYSTEM  FOR  SEPTEMBER  1969  CASE 
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(for  R = 0)  if  the  boundary  conditions 
are  given  in  terms  of  H alone.  In 
contrast,  for  a "closed"  system  is 
specified  somewhere  (tj  = 0 for  a head 
of  tide  or  Q = discharge  for  an  inflowing 
somewhere  (Q  = 0 for  a head  of  tide 
or  Q = discharge  for  an  inflowing 
river)  so  the  velocity  is  uniquely 
determined.  A simple-minded  analogy 
is  a two-port  system  with  a variable 
H which  is  specified  at  each 
opening.  The  value  of  Q'  in  the 
figure  obviously  has  no  effect  upon 
the  distribution  or  time  variation 
of  H . Conversely,  knowledge  of  H 
or  continuity)  cannot  permit  complete  inference  of  the  flow,  since 
Q'  cannot  be  determined.  If  one  boundary  condition  is  reformulated 
in  terms  of  discharge  rather  than  H , then  this  problem  disappears. 
The  analogy  to  Masonboro  Inlet  is  apparent  (although  the  dynamic 
equations  (1)  and  (2)  will  delimit  considerably  the  form  the 
indeterminate  divergence-free  velocity  component  can  assume) . It 
would  appear  that  either  the  model  must  be  extended  to  encompass 
the  entirety  of  the  inlet  system,  or  the  boundary  condition  at 
the  ocean  must  be  in  terms  of  discharge  rather  than  H . It  must 
be  emphasized  that  this  is  conjectural,  and  deserves  a thorough 
theoretical  treatment.  It  does  however  suggest  why  the  same 
model  applied  to  other  shallow  embayments  gives  much  more  satis- 
factory current  magnitudes,  in  that  all  of  the  other  applications 
did  not  involve  an  "open"  boundary  (other  than  that  at  the  ocean). 

An  additional  possible  explanation  for  this  discrepancy 
in  velocities  lies  in  the  measured  data  themselves.  In  studying 
the  empirical  data  of  Figs.  4.6  et  seq.  one  notices  that  in  general 
there  is  a net  discharge  over  the  tidal  cycle;  this  is  particularly 
prominent  at  Stations  1 and  2.  Approximate  tidal-mean  currents 


Qi  + Q' 


Q,  + Q' 


alone  (viz.  boundary  conditions 
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TABLE  4.1 


APPROXIMATE  TIDAL-MEAN  CURRENTS, 
FROM  MEASUREMENTS  OF  12  SEPTEMBER  1969 
(Positive  denotes  flood,  negative  ebb) 


Station  Net  Velocity  (fps) 


1 

(north) 

-1.0 

1 

(center) 

-1.1 

1 

(south) 

-0.8 

1 (mean) 

-1.0 

2 

(north) 

+0.8 

2 

(center) 

-0.8 

2 

(south) 

-1.0 

2 (mean) 

-0.3 

3 

(north) 

-0.2 

3 

(center) 

-0.2 

3 

(south) 

+0.5  (?) 

3 (mean) 

0.0 

4 

(west) 

+0.1 

4 

(center) 

-0.1 

4 

(east) 

-0.3 

4 (mean) 

-0.1 

5 

(west) 

0.0 

5 

(center) 

-0.3 

5 

(east) 

-0.1 

5 (mean) 

-0.1 
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from  the  time  histories  of  Figs.  4.6  ^ seq  are  tabulated  in 

Table  4.1.  The  station  "means"  in  this  table  are  simple  arithmetic 

means  of  the  three  lines  to  give  an  indication  of  the  tidal  net 

flow;  no  effort  has  been  made  to  weight  the  lines  by  their  tidal 

depth.  It  can  be  seen  from  this  table  that  the  net  discharge 

into  the  inlet  region  is  practically  nil,  as  indicated  by  the 

mean  currents  at  Stations  3,  4 and  5 (see  Fig.  4.1).  Nevertheless 

there  is  a dramatic  tidal-mean  discharge  at  each  line  of  both 

Stations  1 and  2.  At  Station  1,  in  the  main  channel,  the  net 

flow  is  unidirectional  and  amounts  to  nearly  10,000  cfs  net. 

At  Station  2,  the  tidal-mean  circulation  appears  to  describe  a 

gyre  with  inward  flow  on  the  north  side  and  outward  flow  on  the 

3 

south,  with  an  intensity  on  the  order  of  3.  x 10  cfs  and  a net 

3 

discharge  across  the  section  on  the  order  of  2.  x 10  cfs. 

It  is  clear  that  the  processes  incorporated  in  the  model 
computations  (viz.,  head  gradient  driven  by  tidal  variation  at 
mouth,  frictional  resistance,  coriolis  acceleration)  are  incapable 
of  yielding  circulations  such  as  these.  A precise  agreement 
between  model  results  and  data  can  be  expected  only  if  all  of 
the  processes  operating  in  the  real  world  are  represented  in  the 
model,  which  does  not  seem  to  be  the  case  here.  As  there  are  no 
supporting  observations  available,  we  can  only  speculate  as  to 
the  cause  of  the  departure  between  the  observed  situation  and 
the  idealized  model  calculations.  The  most  probable  causes  are 
thought  to  be  one  or  a combination  of  the  following: 

(1)  The  inlet  system  for  the  September  1969  data  was 
in  a transient  state,  i.e.  not  in  the  tidal-mean 
equilibrium  assumed  in  the  model  computations. 

In  particular,  at  the  start  of  the  data  run 
(0700  EST  12  September),  there  was  a surfeit  of 
water  within  the  system,  thus  driving  a net 
discharge  over  the  succeeding  period.  Although 
such  a situation  is  not  theoretically  precluded 
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by  the  model  formuletion,  its  simulation  requires 
much  more  complete  initial  conditions,  viz.  point- 
by-point  specification  of  water  level  throughout 
the  system  at  the  preceding  slack  current. 

(2)  The  system  was  responding  throughout  the  test 

period  to  systematic  accelerations  not  included 
in  the  model  computations.  Two  prime  candidates 
are : 

(i)  wind  stress,  producing  wind-driven  gyres  in 
semi-enclosed  areas.  In  order  to  include 
this  effect  in  the  model  calculations,  repre- 
sentative observations  of  wind  speed  and 
direction  within  the  Inlet  and  coastal  area 
are  required.  These  were  not  available, 
however,  so  the  wind  speed  was  arbitrarily 
set  to  zero. 

(ii)  longshore  currents,  whose  interaction  with 
the  jetty  produces  a tidal-mean  eddy.  To 
include  this  effect,  at  the  very  minimum 
tidal  stage  variations  are  required  both 
upcoast  and  downcoast  from  the  Inlet  entrance. 

Factors  such  as  these  will  not  only  influence  the  tidal- 
mean  velocities  but  the  intratidal  velocities  as  well.  The 
importance  of  such  factors  in  the  September  1969  data  is  strongly 
suggested  by  the  tidal-mean  currents  of  Table  4.1.  We  infer 
therefore  that  it  is  likely  that  the  intratidal  time  histories 
of  Figs.  4.6  £t  seq . are  similarly  influenced,  and  for  this 
reason  are  not  particularly  alarmed  at  the  discrepancy  between 
the  measured  tidal  current  amplitudes  and  the  model  calculations. 
More  precise  comparison  of  model  results  and  measurements  requires 
a more  complete  data  set. 


4.2 


Model  Runs 


The  November  1964  and  June  1967  cases  were  each  run 
twice  using  two  driving  tides,  1)  a mean  tide  and  2)  a spring 
tide.  These  tides  are  presented  in  Fig.  4.25. 

The  hydrographic  survey  for  the  November  1964  case 
is  shown  in  Fig.  4.26  and  the  corresponding  grid  and  depths  used 
are  given  in  Figs.  4.27  and  4.28.  The  predicted  tides  and 
velocities  are  shown  in  Figs.  4.29  to  4.33  for  the  mean  tide,  and 
Figs.  4.34  to  4.38  for  the  spring  tide. 

The  hydrographic  survey  for  the  June  1967  case  is  shown 
in  Fig.  4.39  and  the  corresponding  grid  and  depths  in  Figs.  4.40 
and  4.41.  The  predicted  tides  and  velocities  are  shown  in 
Figs.  4.42  to  4.46  for  the  mean  tide,  and  Figs.  4.47  to  4.51  for 
the  spring  tide. 

The  predicted  tidal  prisms  are  given  in  Table  4.2  for 
all  the  runs  including  the  verification  run. 


I 


35 


MASONBORO  INLET 

PROTOTYPE  TIDE  DATA  12  SEPT  1969 


DRIVING  TIDE  USED  IN  VERIFICATION  MODEL 


MEASURED 

COMPUTED 


FIG.  4.5  MEASURED  AND  PREDICTED  TIDE  FOR  STATION  1,  VERIFICATION  RUN 


MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  1 NORTH 
VERIFICATION  RUN 


SURFACE 

MIDDEPTH 

BOTTOM 


MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  1 CENTER 
VERIFICATION  RUN 


SURFACE 

MIDOEPTH 


MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  1 SOUTH 
VERIFICATION  RUN 


MEASURED  AND  PREDICTED  TIDE  FOR  STATION  2,  VERIFICATION  RUN 


SURFACE 


FIG.  4.10  MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  2 NORTH 
VERIFICATION  RUN 
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VERIFICATION  RUN 


SURFACE 


FIG.  4.12  MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  2 SOUTH 
VERIFICATION  RUN 
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FIG.  4.13  MEASURED  AND  PREDICTED  TIDE  FOR  STATION  3,  VERIFICATION  RUN 
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FIG.  4.14  MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  3 NORTH 
VERIFICATION  RUN 


SURFRCE 

MIDDEPTH 

BOTTOM 

COMPUTED 


FIG.  4.16  MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  3 SOUTH 
VERIFICATION  RUN 
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FIG.  4.17  MEASURED  AND  PREDICTED  TIDE  FOR  STATION  4,  VERIFICATION  RUN 
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FIG.  4.20  MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  4 EAST 
VERIFICATION  RLTJ 
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FIG  4.24  MEASURED  AND  PREDICTED  VELOCITIES  AT  STATION  5 EAST 
VERIFICATION  RUN 
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FIG.  4.26  NOVEMBER  1964  SURVEY 


VELOCITT  (FPS)  TIOflL  STAGE  (FT) 


RANGE  1 - STATION  N 


FIG.  4.29  RESULTS  OF  RUN  FOR  NOVEMBER  1964,  MEAN  TIDE  FOR  STATION  1, 

a)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY  CENTER,  d)  VELlKlTY' 
SOl^TH 
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RANGE  1 - STATION  S 


FIG.  4.29  (Continued)  RESULTS  OF  RUN  FOR  NOVEMBER  1964,  MEAN  TIDE  FOR 

STATION  1,  «)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY 
CENTER,  d)  VELOCITY  SOUTH 
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RANGE  2 - STATION  N 

FIG.  4.30  RESULTS  OF  RUN  FOR  NOVEMBER  1964,  MEAN  TIDE  FOR  STATION  2, 
a)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY  CENTER,  d)  VELOCITY 
SOUTH 
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>«  COMPUTED 


RANGE  2 - STATION  C 


RANGE  2 - STATION  S 


FIG.  4.30  (Continued)  RESULTS  OF  RUN  FOR  NOVEMBER  1964,  MEAN  TIDE  FOR 

STATION  2,  a)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY 
CENTER,  d)  VELOCITY  SOUTH 
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FIG.  4.31  (Continued)  RESULTS  OF  RUN  FOR  NOVEMBER  1964,  MEAN  TIDE  FOR 

STATION  3,  b)  tide,  b)  VELOCITY  NORTH,  c)  VELIKITY 
CENTER,  d'  VELOCITY  SOUTH 
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FIG.  4.32  RESULTS  OF  RUN  FOR  NC 
a)  TIDE,  b)  VELOCITY 
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FIG.  4.33  (Continued)  RESULTS  OF  RUN  FOR  NOVEMBER  1964,  MEAN  TIDE  FOR 

STATION  5,  a)  TIDE,  b)  VELOCITY  WEST,  c)  VELOCITY 
CENTER,  d)  VELOCITY  EAST 
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FIG.  4.35  RESULTS  OF  RUN  FOR  NOVEMBER,  1964,  SPRING  TIDE  FOR  STATION  2, 
«)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY  CENTER,  d)  VELOCITY 
SOUTH 
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FIG.  4.35  (Continued)  RESULTS  OF  RUN  FOR  NOVEMBER,  1964,  SPRING  TIDE 
FOR  STATION  2,  a)  TIDE,  b)  VELOCITY  NORTH, 
c)  VELOCITY  CENTER,  d)  VELOCITY  SOUTH 
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FIG.  4.36  RESULTS  OF  RUN  FOR  NOVEMBER,  1964,  SPRING  TIDE  FOR  STATION  3, 
a)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY  CENTER,  d)  VELOCITY 
SOllTH 
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FIG,  4.36  (Continued) 


RESULTS  OF  RUN  FOR  NOVEMBER,  1964,  SPRING  TIDE 
FOR  STATION  3,  a)  TIDE,  b)  VELOCITY  NORTH, 
c)  VELOCITY  CENTER,  d)  VELOCITY  SOUTH 
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FIG.  4.37  RESULTS  OF  RUN  FOR  NOVEMBER,  1964,  SPRING  T1  E FOR  STATION  4, 
a)  TIDE,  b)  VELOCITY  WEST,  c)  VELOCITY  CENTER,  d)  VELOCir\' 
EAST 
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FIG.  4.37  (Continued)  RESULTS  OF  RUN  FOR  NOVEMBER,  1964.  SPRIN  . TIDE 
FOR  STATION  4,  a)  TIDE,  b)  VELOCITY  WEST, 
c)  VELOCITY  CENTER,  d)  VELOCITY  EAST 
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FIG.  *.38  RESULTS  OF  RUN  FOR  NOVEMBER,  1964,  SPRING  TIDE  FOR  STATION  5, 
a)  TIDE,  b)  VELOCITY  WEST,  c)  VELOCITY  CENTER,  d)  VELOCITY 
EAST 
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FIC. . UMl  RESULTS  OF  RUN  FOR  JUNE  1967,  MEAN  TIDE  FOR  STATION  1. 
a)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY  CENTER, 
d)  VELIKITY  SOUTH 
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FIC.  4.42  (Cimt  inued) 


RESULTS  OF  RUN  FOR  JUNE  1967,  MEAN  TIDE  FOR 
STATION  1,  a)  TIDE,  b)  VELCKITY  NORTH,  c)  VELOCITV 
CENTER,  d)  VELOCITV  SOUTH 
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FIG.  4.6*  RESULTS  OF  RUN  FOR  JUNE  1967,  MEAN  TIDE  FOR  STATION  3, 
«)  TIDE,  b)  VELOCITY  NORTH,  c)  VELOCITY  CENTER, 
d)  VELOCITY  SOUTH 
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FIG.  U.U7  RESULTS  OF  RUN  FOR  JUNE  1967,  STRING  TIDE  FOR 

STATION  I,  a)  TIDE,  b)  VELOCITY  NORTH,  c)  VELiKin 
CENTER,  d)  VELOCITY  SOUTH 
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FIG.  4.48  (Continued)  RESULTS  OF  RUN  FOR  JUNE  1967,  SPRING  TIDE  FOR 
STATION  2,  a)  TIDE,  b)  VELOCITY  NORTH,  c) 
VELOCITY  CENTER,  d)  VELOCITY  SOUTH 
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A . Api>  I 1 r<ih  1 1 i t y t>l  l*i~t»si»n(  Apprn<u~li  tn  M.'istmboi'o  liiU-C 

riu>  vi'i'i  rii'dl  ton  ruus  l<.>r  12  Si>pt imiiIum'  <'s I .ih  I i sIi 

tli.'K  llu>  pri'SiMil  .'ippruiU'li  yi«'Uls  s.'it  1 s liuliiry  proil  ii'l  inns  nl  iik>s( 
.‘ispi'i'ts  i<l  l lu'  tiil.'il  liyilr.'iii  I i cs  Inr  Mnsonln'm  Inlcl.  Coiiipnti'd 
tiilnl  slnw’.n  vni' i.'it  inn  .'iiui  int  rnt  idn  I nnrrnnt  ph.isini;  .’p.ri-nd 
rnnsnn.'il)  1 y witl>  t lu>  iiinnsiiri'il  ilnln.  Tim  iik'si  snriniis  il  1 sn  r<'p;nu-y 
w;is  I’l’twnnn  (.•niiipii  t nil  niul  iiin.isii  rnil  liilnl  nnrrnnt  m.iy.ni  tiulns . 'l’l>n 
sniu-nn  liu'  this  dilliniilty  .'ippnnrs  tn  I'l'  .in  iiiuii' rspnn  i 1 i ml 
hninul.'ify  nniulltion,  .'issi'n  inti'il  with  tlu-  npi>n-nnil  n.llnrn  nl  t hn 
mi'ilnlnil  systi'in,  ;is  ilisnussml  nlsnwlu'rn  in  this  rnpiirt  . in 
luKliiinn,  .1  nlnsn  iin.'ilvsis  nl  t hn  ninp  i r 1 n n I il.tl.i  iiulin.itns  Ihn 
inlliu'nnn  i>l  iltMiiuit  in  .'inni' lnr.it  inns  trnnsinnts,  winil  strnss, 

li'ni.;shnrn  nnrrnnt  s)  whii'h  nnniil  nnt  hn  InnhuU'il  in  t hn  imuU' I 
s iimi  l.'it  inns  hnnnnsn  nl  t hn  l.ink  nl  nnnnssnry  I'hsnrv.'it  Inn.'i  I ilnt.'i. 

Thn  iiinst  si'i'lnns  I inil  t.it  ii'n  tn  jipplylnp,  s nnmpnt  .st  inn 
i>l  this  t ypn  tn  M.isnnhnrn  Inlnt  is  nnt  thn  t hnnrni  inn  I hnsis, 
nnr  is  it  thn  |)nr  rnrtii.innn  i' 1 thn  mniln  I ns  >?nn>-’,ml  nr.ninsi  I'hsnr- 
vntii'ns,  hnt  it  is  r.ntlu'r  tiu’  prnntinnl  nni'nnmlns  I'l  thn  nppli- 
nnlinn.  Thn  nnnfinnii  phys  iny.rnphy  nl  Mnsnnhnrn  inlnt  rmpiirmi  n 
r«' l.'it  1 vi' 1 V linn  spntini  sii'p  ( it)t)  Innt)  innrnly  1 1'  rnsnlvn  Ihn 
yri'ss  Innlnrns  nl  l lu-  inlnl  (snn  kiy,.  A. 2).  11  Is  nnr  nplnimi 

thnt  nn  I'vmi  im'fi'  I'l'lini-il  nntwnrk  winilil  hn  rmpilrml  In  rnsnlvn 
IntnrnI  shnnrs  ninl  n rnss-i-hnnnn  1 n I |•nn  Int  Inns  . Kvimi  witli  Ihn 
(t)t)-lnnt  rnpi-nsnni  nt  inn,  t lin  t Imn  stop  nnnnssnrv  tn  sntlsty 
1 innnr  stnl>lllly  ri>i|n  1 rninnnt  s wns  S si'nniuls.  I'liis  milnilnil  n 
riinniny,  t liiin  nn  t lin  liNlVAt;  111)8  nl  J2  iiiinnti's  pnr  slmnlnti'il 
(12. A hnnr)  tlilnl  nynln.  I'hn  nxpnnsi'  nl  sni-h  n nnnipnt  nt  Inn 
nlnnrly  lU'liniits  thn  nini'iint  nl  Insting  nml  nil)nstiny..  11  is 
ilnnhlinl  thnt  nilnptin>t  nn  nhsi'lntnly  stnhln  iinplinit  nr  nllnr- 
nnt  iny,  Imi' 1 in  1 1 -nxp  1 in  i t t imn  stnp  wnn  U1  mntnrinlly  imprnvn  thn 
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riiiinln>;  timo.  This  is  luHviiisc , minrL  irmii  sLuhl  1 1 1 y roiisiilor.it  ii'iis, 
ihi'  t imi'  stop  must  ho  rost  r;i  liioil  in  onlor  to  nohii'vo  .1  roqniroil 
nocurnoy . i’ho  tlotniloh  phys  iojti'nphy  <.>i  Mnsonhoro  Inlot  wouhl 
nppoiU-  to  domjm(.l  as  lu-arlv  as  small  a timo  stop  to  cnaintain 
sniiioiont  aoonraoy  as  to  maintain  stahillty. 

If  it  is  \u'0<.‘ssary  that  dotailoii  oross-ohanno  1 struotiiro 
Lho  onffonts  ho  rosolvoil,  thon  thoro  is  no  aitornativo  (luimor- 
loally)  to  a f ino-i;fl(.l  ami  oostly  computation.  In  many  oasos 
howi-vof  it  would  appoar  that  Lho  clianno  1 -moan  cucront  and  wator 
lovol  wi'ulil  suffico.  In  this  oaso  it  moro  oconomical  and  oipially 
satisfactory  approacli  would  appoar  to  ho  tho  ono-tlimons  Iona  1 
soction-moan  iikhIo  I as  iloscrihod,  for  oxamplo,  in  broitkors  (l'-)l)4). 
Application  of  tltis  typo  of  computation  hy  llarloman  and  Loo  (I'-lhS)) 
to  Amorlcan  osLuarios  domonstratos  its  valuo.  Simplo  modification 
to  permit  hrancliinj;  and  multiplo  liouiularios  wiHild  allow  its  appli- 
cation directly  to  tho  Masonhoro  Inlet  system.  L'his  approach 
would  ciirry  tho  bonus  of  ohviatini;  Lho  need  for  a special  Imundary 
comlition  at  tho  inlet  boundaries,  since  it  could  ho  readily  and 
economically  oxtondoil  to  encompass  Lho  entire  coastal  notwi'i'k 
system.  From  this  standpoint,  dovolopmont  of  such  a model  mii;ht 
ho  a useful  adjunct  oven  if  tho  full  two-dimensional  roprosontat ion 
is  roijuiroil. 

'•( . 4 KocoiiMiiondat  ions  for  Future  Work 

Specific  rocommomhiL  ions  pertaining;  to  tho  two-dimensional 
moil  o I i>f  this  pri>joct  are  listed  below. 

1.  i’he  moilo  1 shouKl  he  verified  against  a more  complete 
ilata  set,  or  at  least  a tlata  set  for  which  external 
facti'i's  can  he  acci'untetl  for  or  estahlisheil  to  he 
negllgihle.  The  effect  of  system  "memory"  c.innot 


be  overlooked  in  this  regard:  events  of  the  preceding 
several  days  can  continue  to  cause  transient  responses, 
even  if  the  causal  agent  is  no  longer  active. 

2.  A more  detailed  investigation  of  the  influence  of 
the  "unspecified"  boundary  conditions  should  be 
conducted.  There  is  a strong  possibility  that  this 
could  be  a source  of  error  in  the  present  computations, 
and  this  possibility  should  be  explored.  The  con- 
jecture that  the  boundary  conditions  are  under- 
determined when  applied  to  an  open  system  needs  a 
thorough  investigation.  Alternative  boundary 
conditions  should  be  given  some  study.  The  present 
approach  may  prove  to  be  entirely  adequate  if  applied 
in  the  vicinity  of  a kinematical  nodal  point. 

Physical  model  studies  may  be  useful  in  investi- 
gations of  this  and  other  related  questions. 

3.  More  study  of  numerical  behavior  of  tidal  flats 
hydraulics  would  be  welcome.  There  are  evidently 
some  serious  problems  in  large  inundated  areas.  A 
better  formulation  of  bottom  friction  may  be  required. 

Suggestions  for  Application  to  Other  Systems 

1.  Best  application  can  be  made  to  systems  which  can 
be  completely  encompassed  by  model  calculation  and 
whose  physiography  is  sufficiently  uncomplicated  to 

3 

permit  large  space  steps  (on  the  order  of  10  feet 
or  larger) . 

2,  Tidal  flats  appear  to  be  very  sensitive  numerically, 

in  that  waves  can  be  excited  by  draining  and  inundating 
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cells  which  can  corrupt  the  solution.  If  in  doubt, 
a smaller  time  step  or  perhaps  larger  friction 
coefficients  should  be  used  in  such  areas.  (See 
also  5,  below.) 

3.  Initial  calculations  should  be  made  using  short 
duration  runs  only  so  as  to  catch  bugs  in  input 
data  without  waste  of  computer  time. 

4.  Validity  of  approach  is  dependent  upon  relative 
shallowiess  of  system.  Application  to  deeper 
waterbodies  or  to  systems  with  deep  reaches  should 
be  approached  cautiously. 

5.  If  a tidal-flat  includes  a special  (open)  boundary, 
the  adjacent  cells  should  flood  before  the  boundary 
cell,  or  numerical  instability  can  result.  This 

can  be  handled  by  making  the  water  depths  successively 
shallower  (by  a small  amount)  as  the  boundary  is 
approached. 

6.  The  magnitude  and  distribution  of  friction  coefficients 
can  be  roughly  established  very  economically  by  oper- 
ating first  a "coarse-grid"  model  of  the  embayment, 

; with  space  steps  three  to  five  times  that  of  the  final 

I mode  1 . 
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5.0 


PROGRAMS 


5 . 1 General 

The  various  programs  comprising  the  Masonboro  Inlet 
model  are  presented  and  discussed  in  this  section.  Program 
MASON  is  the  main  program  and  uses  the  subroutines  FLAGS,  MOD, 
TRACE,  WIND,  TIDAL2 , PRINTl,  SEARCH,  and  WFILE.  The  programs 
require  approximately  2500  decimal  words  (60000  octal)  on  the 
UNIVAC  1108  with  36-bit  words. 

All  of  the  programs  are  written  in  FORTRAN  V and  are 
system  independent  with  the  exception  of  subroutines  SEARCH 
and  WFILE.  This  subroutine  is  a tape  positioning  routine  and 
should  be  checked  for  system  compatibility. 

The  parameters  listed  in  the  flow  charts  are  defined 
in  Section  5.10. 

The  basic  grid  system  used  in  this  model,  displayed 
in  Fig.  4.2,  is  a 300  foot  lattice.  A driving  tide  is  input  for 
the  open  sea  boundary.  The  boundary  conditions  at  the  open  water 
boundaries  in  the  three  branches  of  the  inlet  are  extrapolated 
as  explained  in  Sections  2.2  and  3.1. 

Input  and  output  to  the  program  are  accomplished  by 
both  punched  cards  and  tape.  All  tape  input/output  is  by  standrad 
FORTRAN  binary  reads  and  writes.  That  is,  by  "READ(N)  List"  and 
"WRITE(N)  List"  where  N is  the  logical  unit  number  and  "List" 
is  a variable  list.  Flow  charts  and  listings  of  the  programs 
are  given  in  this  section.  There  is  a restart  capability  present 
in  the  program. 

All  parameters  in  subroutine  calls  must  be  specified. 
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! Program  MASON  is  the  main  program.  It  controls  the 

overall  flow  of  the  Masonboro  model.  The  input  of  data,  initializa- 
I tion  of  parameters,  the  actual  flow  computations,  and  output  of 

I results  are  controlled  by  this  routine.  Intermediate  results  can 

[ij  be  printed  at  any  specified  time  interval.  A flow  chart  of  the 

program  is  given  in  Fig.  5.1  and  a listing  is  given  in  Table  5.1 

5 . 3 Subroutine  FLAGS 

This  subroutine  reads  in  the  basic  flag  information  and 
defines  a flag  code  for  use  by  program  MASON.  The  flag  field  code 
describes  the  flow  conditions  (free  flow,  barrier,  etc.)  at  the 
cell  walls  so  that  the  correct  computations  can  be  performed. 

The  flag  field  is  dynamic;  that  is,  the  flag  field  changes  as 
the  water  level  changes  to  allow  flooding  and  draining  of  cells. 
Details  of  the  flag  system  are  given  in  Section  3.2.  The  initial 
flag  field  is  set  up  for  a water  level  of  0.0  feet.  It  is  later 
modified  to  the  initial  water  level  by  subroutine  MOD. 

Subroutine  FLAGS  is  called  by  the  statement 

CALL  FLAGS  (LHI,  LHJ , LHK) 

where  LHI  = a two-dimensional  array  of  the  I subscripts  of  the 
special  tidal  input  cells, 

LHJ  = a two-dimensional  array  of  the  J subscripts  of  the 
special  tidal  input  cells,  and 

LHK  = a one-dimensional  array  containing  the  number  of 
special  tidal  input  cells  of  each  type. 

A flow  chart  of  the  program  is  given  in  Fig.  5.2  and  a program 
listing  is  given  in  Table  5.2. 
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5.4 


Subroutine  MOD 


This  subroutine  modifies  the  flag  field  when  called 
according  to  newly  computed  water  levels.  That  is,  it  checks 
if  any  given  cell  should  be  flooded  or  dry  and  changes  the 
corresponding  flag  accordingly.  To  tell  whether  or  not  a cell 
should  be  flooded,  the  program  checks  the  elevation  of  water 
level  in  the  adjacent  cells  to  see  if  it  is  greater  than  the  eleva- 
tion of  the  cell  by  some  tolerance  specified  by  the  user  in  the  data 
cards.  If  a cell  is  already  flooded  and  the  water  level  in  an 
adjacent  cell  drops  to  within  the  specified  amount  of  the  bottom 
elevation  then  the  cell  is  taken  out  of  the  computations  and 
treated  as  dry  land.  In  checking  the  cells  the  program  scans 
from  cell  (I  = 1,  J = 1)  to  cell  (I  = IMAX,  J = 1),  increments 
J and  repeats,  i.e.,  it  scans  the  grid  by  rows. 

During  flood  tide  subroutine  MOD  is  called  at  a regular 
interval  specified  by  the  user  (variable  NSTEP).  During  ebb  tide 
it  is  called  whenever  a negative  depth  is  calculated.  The  calling 
statement  is 

CALL  MOD  ( TIME,  IPRMOD,  lOPP) 

where  TIME  = the  time  of  day  in  minutes, 

IPRMOD  = number  of  calls  to  MOD  between  calls  to  subroutine 
MODPRI  by  MOD,  and 

lOPP  = the  print  control  parameter  for  the  call  to 
MODPRI  (see  subroutine  MODPRI,  Section  5.8). 

A flow  chart  for  the  program  is  given  in  Fig.  5.3  and  a listing 
in  Table  5.3. 
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5.5 


Subroutine  TRACE 


This  subroutine  traces  flooding  backward  through  the 
grid.  That  is,  if  a cell  is  initially  flooded  through  the  left, 
top,  or  right  wall,  then  it  is  possible  that  the  cells  to  its 
left  and  bottom  will  be  flooded  by  it.  However,  subroutine  MOD 
has  already  scanned  these  cells  and  would  not  detect  this. 
Therefore,  whenever  a cell  is  flooded  through  the  left,  top,  or 
right  wall,  subroutine  TRACE  is  called  to  trace  back  through 
the  grid  and  flood  any  cells,  if  necessary. 


The  call  to  subroutine  TRACE  is 


CALL  TRACE  (I,  J,  Z) 


where  I = the  I subscript  of  the  cell  just  flooded, 

J = the  J subscript  of  the  cell  just  flooded,  and 
Z = the  bottom  elevation  array. 


A flow  chart  of  the  program  is  given  in  Fig.  5.4  and  a listing 
in  Table  5.4. 


5 . 6 Subroutine  WIND 

This  subroutine  calculates  the  wind  effect  (wind  stresses) 
as  a function  of  time.  The  wind  data  is  input  via  data  cards.  The 
data  consists  of  the  wind  speed,  wind  direction,  and  the  time, 
in  minutes,  at  which  the  wind  changes  either  speed,  direction,  or 
both.  Also  required  is  the  heading  of  the  positive  x axis  with 
respect  to  north.  There  is  currently  a capacity  for  ten  (10) 
changes  in  the  wind.  In  order  to  increase  the  number  of  changes, 
the  dimension  card  must  be  modified.  The  wind  changes  are 
currently  treated  as  step  functions  with  no  interpolation  between 
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wind  changes.  That  is,  a given  wind  change  applies  until  the 
next  wind  change  occurs. 

The  calling  sequence  is 

CALL  WIND  (TIME,  XW,  YW) 

where  TIME  = the  time, 

XW  = X component  of  the  wind  stress  per  unit  mass  in 
2 2 

units  of  ft  /min  , and 

YW  = y component  of  the  wind  stress  per  unit  mass  in 
2 2 

units  of  ft  /min  . 

The  values  of  XW  and  YW  are  returned  from  the  subroutine. 

The  first  call  to  WIND  inputs  the  wind  data  and  the  variables 
XW  and  XY  are  dummies. 

Whenever  the  wind  conditions  change  this  subroutine 
prints  out  a message  indicating  this  along  with  the  new  values 
of  the  components  of  wind  stress. 

A flow  chart  is  given  in  Fig.  5.5  and  a program  listing 
is  given  in  Table  5.5. 

5 . 7 Subrout ine  TIDAL 2 


This  subroutine  inputs  the  tide  data  and  computes  the 
driving  tide  as  a function  of  time.  Input  is  via  data  cards. 
The  calling  sequence  is 

CALL  TIDAL  ( TIME  + DT2 , TIDE) 

where  DT2  = one-half  the  time  step,  and 

TIDE  = the  returned  value  of  the  tide  height. 
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The  first  call  to  TIDAL  inputs  the  tide  data  for  half-hour  intervals 
and  no  computations  are  performed.  Each  succeeding  call  calculates 
the  present  tide  height  using  linear  interpolation  between  the 
half-hour  values.  No  additional  data  is  required. 

A flow  chart  is  given  in  Fig.  5.6  and  a program  listing 
is  given  in  Table  5.6. 

5 . 8 Subroutine  PRINTl 

This  subroutine  handles  the  printing  of  output  from  the 
program.  There  are  three  forms  that  the  printed  output  may  take; 

1)  the  water  elevation,  and  the  magnitude  and  direction  of  the 
cell-centered  velocity  at  selected  cells,  2)  water  level  and 
velocity  at  the  five  stations,  or  3)  complete  arrays  of  specified 
variables.  This  subroutine  has  three  entry  points:  PIPREP,  PRINTl, 
and  MODPRI.  The  entry  point  MODPRI  is  independent  of  the  other 
two.  Also  the  water  level  and  velocities  at  the  five  stations 
can  be  saved  to  be  punched  latter. 

The  entry  points  PIPREP  and  PRINTl  are  interconnected. 
These  two  entry  points  control  the  print-out  of  the  first  form 
of  output.  The  entry  point  PIPREP  must  be  called  first.  The 
calling  statement  is  "CALL  PRINTl."  This  entry  point  is  used 
only  once  and  it  directs  the  subroutine  to  read  in  the  necessary 
control  information. 

Entry  point  PRINTl  has  three  functions:  1)  printing  of 
tidal  elevations  and  magnitudes  at  selected  cells  whose  indices 
are  read  from  cards  via  entry  point  PIPREP,  2)  printing  a table 
of  tidal  elevations  and  velocities  for  the  five  stations  at 
Masonboro  Inlet,  and  3)  storing  of  tidal  ele.ations  and  velocities 
at  the  five  stations  printed  under  2 for  punching  when  TLIM  is 
reached.  Which  of  the  three  done  is  controlled  by  the  parameter 
IPCH  read  from  data  card.  There  are  four  possibilities 
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IPCH  “ 0 - information  for  specified  cells  and  stations 

printed  but  nothing  stored,  e.g.  1 and  2 above 
done 

“ 1-allof  the  above  done 

“ 2 - specified  cells  not  printed  but  station 

information  is  printed  and  stored,  i.e.  2 
and  3 above  done 

= 3 - specified  cells  printed  and  station  information 
stored  for  punching,  i.e.  1 and  3 above  done. 

The  calling  statement  is 

CALL  PRINTl  (TIME,  TIDE) 

where  TIME  = the  present  time,  and 

TIDE  = the  present  tide  level. 

The  form  of  the  output  is 

(TIME)  (TIDE)  ('^water  level  with  respect  to  datum  level-^) 

(< magnitude  of  velocity  vector  (cfs) >) 

/ direction  of  velocity  vector  with  ^ 

respect  to  positive  x axis  */ 

The  cells  used  to  determine  the  information  corresponding  to  the 
five  stations  for  which  data  were  provided  are  shown  in  Table  5.7. 
The  velocities  indicated  are  cell-centered  velocities. 

The  entry  point  MODPRI  is  used  for  the  second  form  of 
output.  Arrays  of  any  one  or  more  of  the  following  variables 
may  be  printed:  1)  flag  field,  2)  water  level,  3)  water  depth, 

4)  flow  in  x-direction,  5)  flow  in  y-direction,  6)  velocity  in 
x-direction,  and  the  velocity  in  the  y-direction.  The  calling 
statement  is 
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CALL  MODPRI  (lOPP,  TIME) 


I 


where  lOPP  = parameter  specifying  variables  to  be  printed,  add 
up  the  numbers  corresponding  to  the  parameters 
to  be  printed  listed  in  Table  5.8, 

TIME  = time  of  day  in  hours. 

A flow  chart  is  given  in  Fig.  5.7  and  a program  listing  in 
Table  5.9. 

5 . 9 Subroutine  SEARCH 

This  is  a tape  positioning  program  using  specially 
formatted  tapes.  It  is  used  in  conjunction  with  subroutine 
WFILE. 

When  called,  SEARCH  will  position  a tape  immediately 
following  the  file  number  requested;  that  is,  at  the  beginning 
of  the  first  data  block  following  the  requested  file  number. 

When  writing  tapes,  the  usual  will  be  one  of  two 
possibilities:  begin  a new  tape,  or  add  on  data  to  a tape  with 
other  files  on  it. 

A.  SEARCH  will  initialize  a new  tape  if  the  file  number 
is  1;  and  the  tape  will  be  ready,  when  control  is 
returned,  for  writing  of  a data  block. 

B.  When  adding  new  data  to  a tape  with  files  already 
on  it,  all  files  after  the  requested  file  are  no 
longer  accessible.  Therefore,  if  one  does  not 
wish  to  destroy  any  of  the  files  on  the  tape  the 
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file  that  should  be  the  last  file  with  data  in  it 
plus  one. 

There  ace  two  entry  points:  SRCHOF  and  SRCHIF.  SRCHOF 
is  called  prior  to  writing  on  tape,  and  SRCHIF  is  called  prior 
to  reading  tape.  The  calling  sequences  are 

CALL  SRCHOF  (FN,  LUN) 
and  CALL  SRCHIF  (FN,  LUN) 

where  FN  is  the  file  number  and  LUN  is  the  FORTRAN  logical  unit 
number.  File  number  zero  cannot  be  requested. 

The  following  error  stops  and  diagnostics  are  present: 

A.  "CANNOT  LOCATE  REQUESTED  FILE  NUMBER.  REQUESTED 

FILE  NUMBER  = X.  LAST  FILE  NUMBER  ON  TAPE  = Y OCTAL." 
ERROR  ON  LOGICAL  UNIT  Z." 

This  message  will  probably  mean  that  the  file  number 
requested  was  larger  than  the  null  file  number.  The 
last  file  number  printed  is  not  the  null  file,  but 
the  last  file  on  tape  with  data;  that  is,  the  number 
of  the  null  file  minus  1.  All  numbers  are  in  octal. 
Job  is  aborted. 

B.  "FILE  MARK  NOT  FOLLOWED  BY  FILE  NUMBER.  FILE  TO  BE 
LOCATED  WAS  X OCTAL.  ERROR  ON  LOGICAL  UNIT  Z." 

Job  is  aborted. 

Two  decks  are  provided:  I)  UNIVAC  exec  2 assembly 
language  deck,  and  2)  the  equivalent  binary  deck.  A listing  of 
the  assembly  language  deck  is  given  in  Table  5.9. 
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5.10 


Sub routine  WF ILE 


WFILE  is  a program  that  writes  file  numbers  and  end-of- 
tape  sentinals  on  magnetic  tape.  Specifically,  it  writes  a file 
mark,  a file  number,  another  file  mark,  a 7777  77770000,  and  then 
backspaces  the  tape  two  blocks  to  just  before  the  second  file 
mark.  This  routine  does  no  other  tape  positioning,  and  the  tape 
must  be  properly  positioned  prior  to  the  WFILE  call. 

This  routine  has  two  entry  points:  WFILE  and  WFILEF. 

The  first  --  without  the  "F"  suffix  --  is  to  be  used  for  calls 
using  alphabetic  (field  data)  tape  unit  designations.  The 
second  is  for  calls  using  FORTRAN  logical  unit  number  designations. 
For  FORTRAN  calls  the  calling  sequence  is 

CALL  WFILEF  (FN,  LUN) 


where  FN  = a constant  or  variable  containing  file  number,  and 

LUN  = a constant  or  variable  containing  logical  unit 
number . 

Two  decks  are  provided,  1)  the  UNIVAC  1108  Exec  2 
assembly  language  deck,  and  2)  the  equivalent  binary  deck.  A 
listing  of  the  assembly  language  deck  is  given  in  Table  5.10. 
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TABLE  5.1 

LISTING  FOR  PROGRAM  MASON 
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stage  11.4  - EMD  OF  TAPE  INPUT 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


^ sO  o 
o o o o o o 

(M  <\f  CM  (M  C\)  <M 


^ CM  in 

•H  ^ 

CM  CM  CM 


^/)  (/I  c/)  (/)(/>  (/) 
Li  LJ  Ui  UJ  UJ  UJ 


^ U) 

UJ  UJ  UJ 


* 

• 

« 

« 

« 

ft 

ft 

ft 

* 

* 

* 

* 

* 

ft 

ft 

ft 

• 

* 

« 

« 

« 

ft 

ft 

ft 

* 

* 

« 

« 

* 

ft 

ft 

ft 

* 

• 

* 

* 

* 

UJ 

ft 

ft 

O 

ft 

* 

« 

« 

• 

* 

cr 

ft 

ft 

o 

ft 

90 

* 

« 

* 

« 

« 

o 

ft 

ft 

o 

ft 

« 

* 

« 

« 

* 

u. 

ft 

ft 

w 

ft 

* 

* 

« 

« 

* 

UJ 

ft 

ft 

1 

ft 

o 

« 

« 

• 

* 

» 

a 

ft 

ft 

ft 

1- 

• 

« 

« 

* 

UJ 

ft 

ft 

o 

ft 

* 

* 

» 

* 

* 

X 

ft 

ft 

1- 

ft 

o 

* 

* 

* 

* 

« 

»- 

ft 

ft 

ft 

o 

« 

« 

« 

« 

« 

ft 

ft 

in 

* 

« 

« 

« 

« 

« 

ft 

ft 

ft 

« 

« 

* 

* 

» 

m 

ft 

ft 

ft 

» 

« 

* 

« 

« 

a 

ft 

ft 

UJ 

ft 

sD 

* 

* 

• 

* 

* 

CL 

ft 

ft 

u 

ft 

in 

» 

* 

« 

« 

* 

< 

ft 

ft 

ft 

CM 

« 

« 

♦ 

« 

« 

o 

ft 

ft 

V 

ft 

» 

« 

« 

« 

* 

ft 

ft 

cr 

ft 

• 

* 

* 

« 

* 

* 

cr 

ft 

ft 

o 

ft 

H 

* 

O 

« 

• 

» 

« 

o 

ft 

ft 

ft 

« 

C 

* 

« 

« 

* 

ft 

ft 

z 

ft 

• 

• 

< 

« 

« 

* 

« 

UJ  V 

ft 

ft 

H4 

ft 

« 

CJ 

» 

« 

« 

« 

Q < 

ft 

ft 

ft 

*-* 

• 

* 

« 

« 

* 

< cr 

ft 

ft  in 

ft 

« 

z 

« 

« 

« 

« 

H cr 

ft 

ft 

ft 

* 

c 

* 

* 

« 

* 

< 

ft 

ft 

UJ 

ft 

« 

« 

« 

» 

« 

y 

ft 

ft 

> 

ft 

*■» 

* 

i/) 

* 

« 

« 

« 

O X 

ft 

ft 

UJ 

ft 

<D 

* 

* 

« 

« 

a K 

ft 

ft 

-i 

ft 

<* 

« 

• 

* in 

* 

b.  X 

ft 

ft 

ft 

o 

« 

< 

* 

♦ o ♦ 

« 

u. 

ft 

ft 

cr 

ft 

U.  ^ 

K 

* 

>- 

« 

« or 

» 

« 

a o 

ft 

ft 

UJ 

ft 

« 

< 

« 

♦ < 

« 

» 

< 

ft 

ft 

1- 

ft 

o 

O 

# 

c 

« 

« o 

« 

UJ  UJ 

ft 

ft 

< 

ft 

• •- 

ID 

* 

« 

* 

« 

* 

cr  »- 

ft 

ft 

ft 

o 

* 

* 

* z 

* 

» 

< 

ft 

ft 

ft 

z o 

»-• 

* 

< 

« 

« o 

* 

* 

in  ^ 

ft 

ft 

o 

ft 

< o 

« 

« 

O 

« 

« 

* 

UJ  D 

ft 

in 

ft 

z 

ft 

* 

CM 

* 

« 

K 

« < 

« 

# 

r u 

ft 

ft 

« 

ft 

O 

« 

« 

♦ K 

* 

« 

ft 

ft 

ft 

o 

» 

z 

* 

O 

« < 

* 

* 

< < 

ft 

o 

ft 

in 

ft 

in  • 

c 

« 

« 

o 

« o 

« 

« 

> u 

ft 

H 

ft 

I 

ft 

CM  O 

o 

I 

« 

« 

« 

« 

« 

ft 

ft 

K 

ft 

o 

o 

« 

u. 

» 

«i«l. 

« u 

• 

* 

J o 

ft 

^ O 

ft 

CL 

ft 

• o 

o 

•> 

* 

• 

« < 

* 

* 

< >- 

ft 

■n  o 

ft 

UJ 

ft 

UJ  «-• 

c 

• 

# 

o 

* 9^ 

* 

« 

ft 

ft  o 

ft 

ID  1 

• 

X 

* 

►“ 

« 

* H 

« 

« 

H c 

ft 

«— 

ft 

ft 

• 

« 

• 

• 

♦ 

« 

« 

M UJ 

ft 

ft 

K 

ft 

• 

* 

• 

* 

« 

u 

• 

o 

« z 

* 

Z Ui 

ft 

Nl  • 

ft  UJ 

ft 

^ o 

K 

• 

K 

« 

UJ 

« IM 

« 

* 

z 

ft 

X X 1 o 

ft 

in 

ft 

X 

X 

UJ 

ID 

X 

« 

« 

• 

« 

« 

» 

ft 

< < «-. 

ft 

ft 

< 

< 

* • 

rsj 

• 

-1 

# 

1 

« 

* 1 

« 

• • 

» 

1 

ft 

2 X "?  • 

ft 

1 

ft 

X 

X 

1 

* 

« 

X 

# 

* 

C >-  C; 

* 

ft 

UJ 

ft 

ft 

(M 

w ^ 

H 

•- 

— * 

\/) 

« 

in 

« 

X 

« sO 

« 

^ X o ^ 

» 

o 

ft 

» * O 

ft 

o 

ft 

ID  “5  Z 

z 

o 

« 

• 

• 

o 

• • 

« 

X UJ  O UJ 

« 

• 

ft 

^ ^ w • 

ft 

• 

ft 

< » 

< 

* 

* 

« «H 

* 

» 0 « » 0)  UJ 

« 

CM 

ft 

II  II  X 

© 

ft 

in 

ft 

II 

II 

J *-11- 

H- 

« 

« 

o 

* iH 

« 

c « ^ 3 

« 

ft 

n »-•  II  »- 

ft 

ft 

“5 

U. 

II 

II 

W 

u. 

« 

* 

* 

» 

fo  K in  lo  H z 

« 

ft 

in 

ft 

ft 

•-4  O 

O 

« 

Ui 

# 

« u 

« 

< « i-N 

« 

UJ 

ft 

C O •> 

o 

ft 

UI 

ft 

* 

o 

« 

w 

♦ o 

« 

QXOOXH 

« 

o 

ft 

s ^ ^ 

H 

ft 

ID 

ft 

w 

% 

W 

-1 

« 

< 

« 

» < 

« 

< K < < (T  Z 

ft 

< 

ft 

ft 

< 

ft 

< 

« 

►- 

• 

u. 

♦ H* 

« 

UJ  O UJ  UJ  o o 

ft 

H 

ft 

o o ^ u. 

o 

ft 

ft 

o 

o 

u.  u. 

u. 

u 

« 

in 

# 

N4 

« in 

« 

q:  u.  cr  cc  u.  u 

ft 

m 

ft 

Q D O O 

ft 

in  ft 

o 

o 

^ M X 

O i-i 

>0 

m 

m 

4* 

lO  ©O' 

o 

c 

c 

u 

c 

c 

c 

c 

c 

c 

c 

in  m 

c 

c 

c 

c 

c 

o ^ 

u 

c 

c 

c 

c 

125 


D(I» J)=-1000 
H(I»J)=-1000 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


LISTING  FOR  PROGRAM  MASON 


Ui 

0) 

o 

z 

H 

£ 

z 

o 

M 

< 

H-  0) 

D Z 

a o 

Z i-« 

O K 

U 

o 

-j  : 

^ o 

< u 

{/)  X 

z q: 

a < 

o c 

u.  z 

X o 

Ui  c 

a €c 

*-*  < 

ir> 

o 

O Ui 

K 0. 

O' 

a 

O UJ 

c z 

_J  X 

UJ  q: 

z o 

»-  u 

o 

• 

O' 

w4 

11 

UJ 

a 

o 

< 

O 

X 

OJ 

X X 
< < 
X z 


II  II 


c 

< z 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

X 

ft 

ft 

ft 

ft 

ft 

ft 

z 

ft 

ft 

ft 

ft 

ft 

ft 

Ui 

ft 

ft 

ft 

ft 

ft 

ft 

z 

ft 

ft 

ft 

ft 

ft 

ft 

o 

ft 

ft 

ft 

ft 

ft 

ft 

0. 

ft 

ft 

ft 

ft 

ft 

ft 

z 

ft 

ft 

a ft 

ft 

ft 

ft 

o 

ft 

ft 

X ft 

ft 

ft 

ft 

L) 

ft 

ft 

D ft 

ft 

ft 

ft 

1 

ft 

ft 

T ft 

ft 

ft 

ft 

X 

ft 

ft 

ft 

ft 

ft 

♦ 

ft 

ft 

O ft 

ft 

ft 

O) 

ft 

ft 

O)  ft 

ft 

ft 

J 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

U ft 

ft 

ft 

< 

ft 

ft 

»H  ft 

ft 

ft 

J 

ft 

ft 

ft 

ft 

ft 

ft 

D 

ft 

X 

ft 

1 ft 

ft 

ft 

ft 

u 

ft 

ft 

1 ft 

ft 

ft 

ft 

-1 

ft 

u. 

X 

ft 

ft 

ft 

ft 

ft 

< 

ft 

1-4 

sC 

ft 

X ft 

ft 

ft 

ft 

u 

ft 

CO 

ft 

a.  ft 

ft 

ft 

ft 

ft 

ec 

ft 

C ft 

ft 

a 

ft 

ft 

» 

ft 

C- 

ft 

ft 

ft 

o 

ft 

ft 

< 

ft 

ro 

o 

ft 

OI  ft 

ft 

o 

ft 

ft 

ft 

tf) 

X 

ft 

X ft 

ft 

ft 

ft 

c 

ft 

» 

ft 

« ft 

ft 

ft 

ft 

z 

ft 

c 

o 

ft 

» ft 

ft 

u 

ft 

ft 

u 

ft 

o 

CD 

ft 

U ft 

ft 

o 

ft 

ft 

ft 

IT 

ft 

« ft 

ft 

ft 

ft 

ft 

» 

ft 

ft 

ft 

c 

ft 

ft 

c 

ft 

c 

ft 

Ift  ft 

ft 

z 

ft 

ft 

X 

ft 

o 

o • 

ft 

M ft 

CM 

ft 

UJ 

ft 

ft 

ft 

m 

o o 

ft 

ft 

ir 

ft 

ft 

ft 

UJ 

ft 

» 

X 

ft 

^ ft 

ft 

c 

ft 

ft 

a 

ft 

to 

• 

ft 

J ft 

c 

ft 

X 

ft 

oc 

ft 

UJ  iT 

ft 

c 

C X 

ft 

U ft 

X 

ft 

ft 

ft 

z » 

ft 

m 

X o 

ft 

U ft 

ft  0. 

ft 

IT 

ft 

o 

ft 

» 

• 

ft 

ft 

o 

ft 

z 

ft 

ft 

z u 

ft 

X 

o 

ft 

U ft 

ir> 

ft 

ft 

O 

ft 

o u 

ft 

c 

e -- 

ft 

M ft 

ft 

"5 

ft 

X ^ 

ft 

oc 

ft 

m 

ft  ft 

ft 

*»» 

ft 

ft 

♦ 

ft 

u u 

ft 

» 

“5 

ft 

X ft 

ft 

ft 

o ^ 

ft 

z 

ft 

CM 

* 

U ft 

o ft 

cv. 

ft 

II 

ft 

CD  _J 

ft 

U!  X 

ft 

C 

U.  ft 

UJ  ft 

o 

ft 

ft 

u 

ft 

o 

ft 

in 

IT  a 

•-t  ft 

x ft 

IT 

ft 

ft 

A M 

ft 

c u 

ft 

* 

(Vj 

» ft 

u ft 

ft 

u 

ft 

ft 

u o 

ft 

w 

fO  ft 

ft 

• 

ft 

ft 

K) 

ft 

ft 

o 

• c 

% ft 

1 ft 

c 

ft 

ft 

* 

ft 

1 

ft 

m 

X ♦ 

K)  ft 

ft 

u 

ft 

1 

ft 

• O 

ft 

ft 

* 

-J  ^ 

to  ft 

^ ft 

• 

ft 

ft 

o to 

ft 

to 

ft 

o 

• “> 

^ ft 

• ft 

ft 

CM 

ft 

UJ 

ft 

• 

ft 

o 

• 

Q * O'  * 
CDeC4>t4>IU.U.  IL*  « 
IT  4/)  II  II  II  II  II  M O X # O • 

ooQ.zazu.xxu.«i-« 

O' 

O' 

9 


u.  « 

M « 


» • « 

ft  ft 
ft  U ft 
ft  O ft 
ft  < ft 
K ft 
4/1 


• o 


II 

w > 


u,  u. 


ft  O' 
ft  ^ 
ft 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 


iT  UJ  J 
^ D U.  « 

z •-*  o 

o ^ w 

H*  K w w 

z 

o o u.  u. 
o c>>  ^ ^ 

o 

o 

ir 


u u u o u u 


uuou  ououu  uuouuu 


127 


CALL  MODPRI ( 1?7»TImE) 

PRINT  7776 

7776  FORMATt*  MOOPRI  CALL  A'TFR  STATFMENT  NO.  500*) 
PRINT  fl866.I*J»TINE 


I 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


* 

« 

* 

* 

* 

« 

» 

* 

« 

« 

« 

* 

* 

* 

« 

• 

« 

* 

« 

* 

* 

« 

* 

«- 

* 

» 

* 

» 

* 

* 

« 

« 

« 

« 

« 

* 

♦ 

* 

« 

« 

* 

« 

* 

* 

» 

« 

« 

* 

* 

« 

« 

« 

« 

* 

* 

« 

* 

«■ 

# 

« 

« 

« 

« 

« 

♦ 

« 

* 

+ ^ 

* 

* 

» 

* 

* 

« 

* 

^ * 

* 

« 

A ^ 

* 

* 

* 

« 

« 

* 

« 

* 

« 

■3  ^ 

* 

* 

* 

* 

« 

* 

* 

* 

* 

»o  ♦ 

« 

* 

» 

* 

» 

» 

* 

« 

« 

^ K3  w 

« 

* 

» 

* 

* 

* 

« 

w w 

* 

« 

w 

* 

* 

« 

* 

* 

« 

* 

X z 

« 

« 

X CM  Z 

* 

« 

« 

« 

* 

» 

« 

o z 

« 

* 

O « 1 

» 

» 

« 

« 

« 

« 

* 

« rO  1 

» 

* 

* 

« 

* 

« 

* 

« 

« 

^ to  ^ 

* 

» 

« 

* 

* 

* 

« 

* 

» 

• “5 

« 

« 

“3  * 

« 

* 

» 

* 

« 

* 

« 

* (M  ^ 

* 

« 

» i-i 

« 

* 

« 

« 

« 

* 

« 

i-i  ♦ 

» 

« 

M » w 

« 

* 

« 

« 

» 

« 

w « w 

« 

* 

w z 

* 

* 

» 

« 

* 

« 

« 

X Z 

» 

« 

X 0.  z 

* 

* 

* 

» 

« 

« 

« 

o ^ ^ 

« 

» 

O M W 

* 

» 

» 

* 

* 

« 

« 

* “>  ♦ 

« 

* 

* -w  * 

« 

* 

* 

« 

« 

» 

« 

o » ^ 

* 

* 

O Q 

« 

« 

« 

« 

« 

« 

« 

• «M  ^ 

» 

* 

« 

« 

« 

«- 

* 

«T 

« 

* 

sO  a ") 

* 

« 

>0  ^ “3 

« 

« 

« 

« 

« 

« 

* 

* J 

« 

^*3  • 

« 

« 

« 

« 

« 

o 

« 

« 

W 

« .J 

* 

* 

« 

* 

* 

« 

A. 

« 

* 

»-  o a 

« 

« 

K Q. 

« 

« 

» 

* 

« 

UJ 

« 

« 

QC  ♦ 

« X 

* 

a w 

* 

« 

• 

* 

« 

« 

« 

o ^ 

« 

* 

C O 

« 

« 

« 

« 

«> 

« 

« 

*5  O 

# H 

* 

(/)  w o 

« 

« 

« 

» 

* 

1 

* 

* 

« * 4> 

* U 

» 

* X ♦ 

* 

* 

* 

« 

« 

1 

« 

* 

<M 

* liJ 

• 

CM 

« 

oc 

* 

» 

Ct 

* 

« 

1 

* 

* 

♦ W-) 

« -1 

« 

* CM  “3 

« Ixi 

« 

« 

UJ 

* 

« 

« 

« 

* C 

« 

« 

« 

« 

« 

« 

« 

« 

» Z 

# 

«-»  # 1-1 

» oc 

« 

* 

cr 

« 

* 

to 

* 

« 

V 

« o 

* 

A 

* 

QC 

» 

CM 

« 

CL 

« 

* 

• 

« 

^ o 

« 

« 

■3  — 0 

« 

« 

in 

« 

< 

* 

« 

O' 

« 

« 

^ €Si^ 

* K 

« 

» — ^ w 

« 

cc 

« 

« 

cc 

« 

c 

« 

« 

« 

# r 

« 

*3  * 

« 

« 

c 

« 

* 

IT 

« 

* 

« 

D.  * X 

« 0. 

« 

Q.  X 

» 

K 

* 

1- 

* 

>- 

« 

« 

UJ 

« 

* 

M C\J 

« z 

« 

wH  CM 

« z 

« 

« q: 

* 

O 

« 

o 

« 

« 

^ ^ o 

* IM 

* 

w Q,  O 

« 

UJ  « 

o 

« 

< 

* 

H 

» 

< 

« 

« 

U.  — K 

« 

« 

!*.•-•►- 

« z 

« 

C£> 

« 

a 

» 

« 

H 

* 

« 

♦ “5  0 

« -1 

• 

♦ w o 

« 

< 

« 

» 

o 

» 

O 

« 

in 

« 

« 

• e 

« < 

« 

— >-  O 

* z 

« 

» 

0. 

« 

c 

* 

* 

» 

•D  ♦ 

* o 

« 

“3  e ♦ 

« 

ct 

« 

« 

z 

« 

0. 

« 

« 

« 

« 

* UJ 

» 

« 

Uj 

« 

« 

c 

« 

« 

w > S 

* K 

* 

-i*  -5 

* a 

* 

* 

* 

• 

« 

* 

w O * 

« 

« 

« 

« 

in 

* 

« 

in 

« 

o 

« 

« 

IL  ♦ 

* 1 

« 

u.  z <-N 

« 

1 

» 

* 

1 

« 

« 

z 

* 

« 

w ^ w 

« 

« 

W -3  ^ 

« 

« 

• 

* 

* 

• 

* 

UJ 

# 

* 

« ^ X 

« sC 

» 

UJ  * * X 

* 

» 

o 

* 

CO 

* 

* 

* 

» 

H z o 

* • 

« 

O K ^ C 

« 

• 

* 

Ui 

• 

* 

• 

# 

• ^ 

« 

« 

« 

o ->  w 

♦ lO 

» 

C Q. 

« 

lO 

« 

• 

o 

« 

K) 

« 

o • 

« 

1 

« 

* 

Q.  » II 

^ f*- 

« • 

* 

^0.^11 

CO 

* 

• 

« 

II 

« 

• 

* 

II 

« 

1 

* 

« 

O « ^ 

o o 

» O' 

» 

II  O w ^ 

o 

* 

a » 

— o 

* 

c^ 

« 

— o 

* 

1 

* 

« 

V in 

# ^ 

« 

— 4*  >-  -3 

V 

in 

« 

« 

u.  “3  in 

« 

« 

■3  Z 

« 

« 

« 

O X • 

* 

« 

■3  O O • 

« 

« 

N4 

* 

* 

* 

« 

« 

« 

• o ^ 

H O 

* UJ 

* 

» • w ^ 

c 

» U; 

» 

^ o 

« 

UJ 

* 

« 

< 

« 

« 

^ 

O >- 

« u>  » 

4H  ♦ 

o 

h- 

* 

o * 

«-  K 

« 

o 

« 

« 

» 

« 

II  « z 

* 

* < 

« 

w II  • z 

« 

» 

< 

« 

Z 

« 

< 

» 

z 

M 

« 

o 

* 

* 

^ • X 

s o 

♦ H 

* 

Z •-«  CM  X 

O 

* 

H- 

* 

u. 

X o 

« 

» 

X u. 

X 

« 

z 

« 

« 

O CM  O 

X C9 

* in 

* 

I o o 

X 

c 

* in 

» 

O <0 

« 

in 

« 

c •-• 

« 

UJ 

* 

• 

in 

o 

sO 

CC 

o 

m 

o 

o 

in 

in 

in 

IT 

c 

c 

c 

c 

(j 

U U U CJ  c^ 

c 

c 

c 

c 

ij 

c 

c 

c 

c 

c 

c 

U 

129 


stage  19.4  - CODE  FROM  HERE  TO  »ENO  B»  CALCULATES  Y COMPONENT 
OF  FLOW 


LISTING  FOR  PROGRAM  MASON 


* 

* 

ft 

ft 

ft 

ft 

ft 

ft 

o 

* 

« 

* 

Z 

ft 

ft 

•f 

ft 

ft 

ft 

ft 

1 

* 

4^ 

» 

•-4 

ft 

ft 

ft 

ft 

ft 

ft 

3 

* 

« 

» 

ft 

ft 

•ft 

ft 

ft 

ft 

ft 

>■ 

* 

* 

* 

X K> 

ft 

ft 

a 

ft 

ft 

ft 

ft 

•mf 

* 

« 

« 

o m 

ft 

ft 

-> 

ft 

ft 

ft 

ft 

« 

« 

« 

w • 

ft 

ft 

ft 

ft 

ft 

ft 

« 

# 3 

« 

ft  <\j 

ft 

ft 

•ft 

ft 

ft 

CM 

ft 

ft 

a— 

* 

♦ O 

« 

ft 

ft 

ft 

z 

ft 

ft 

ft 

ft 

ft 

« 

« ^ 

* 

”>  ft 

ft 

ft 

•H 

ft 

ft 

ft 

ft 

ft 

(L 

» 

« lA, 

* 

* aM. 

ft 

ft 

ft 

ft 

ft 

ft 

-3 

* 

« 

* 

I-I 

ft  3 

ft 

X 

ft 

ft 

03 

ft 

ft 

* 

« UJ 

* 

ft  O 

ft 

o 

ft 

ft 

O 

•li- 

« 

»>4 

* 

« UJ 

* 

>-  Q. 

ft  J 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

•>-» 

* 

» (T 

» 

O "5 

ft  U. 

ft 

ft 

ft 

ft 

ft 

X 

• 

«■» 

« U. 

» 

ft  * 

ft 

ft 

ft 

ft 

CD 

ft 

ft 

1 

* 

« 

* 

ft  ui 

ft 

ft 

ft 

X 

ft 

ft 

« 

o 

♦ H 

« 

ft  UJ 

ft 

•ft 

ft  u. 

ft 

W 

ft 

ft 

-3 

« 

» < 

* 

- O 

ft  cr 

ft 

z 

ft  u 

ft 

in 

ft 

ft 

* 

* 

in 

« J 

» 

•-•  ft 

ft  u. 

ft 

ft  u 

ft 

u 

ft 

ft 

* 

* U. 

* 

W M 

ft 

ft 

w 

ft  CL 

ft 

ft 

ft 

w 

« 

• 

« 

* 

>-  ”5 

ft  »- 

ft 

X 

ft 

ft 

Nb 

ft 

ft 

X 

« 

> 

o 

♦ ^ 

* 

O - 

ft  < 

ft 

o 

ft  £r 

ft 

ft 

3 

ft 

•aia 

« 

z 

» < 

« 

ft  M 

ft  j 

ft 

w CJ 

ft  u 

ft 

ft 

O 

ft 

ft 

« 

u. 

lO 

* o 

« 

O ^ 

ft  u. 

ft 

ft  ft 

ft  > 

ft 

“3 

ft  -1 

ft 

# 

«v 

H 

* 1-^ 

« 

• c 

ft 

ft 

--  ft 

ft  c 

ft 

ft 

u 

ft 

« 

* 

in 

z 

# H 

* 

w 

ft  -1 

ft 

ft 

ft 

ft 

ft 

”3 

* 

UJ 

« 

« 

•H  V 

ft  < 

ft 

ft  3 

ft 

ft  u. 

ft 

* 

o 

2 

« z 

* 

w ^ 

ft  c 

ft 

^ «-4 

ft  O 

ft 

>- 

ft 

o 

ft 

» 

lO 

»- 

Ui 

« o 

« 

H CJ 

ft 

ft 

w a 

ft  ^ 

ft 

O 

ft 

ft 

w 

« 

(O 

H 

# z 

« 

o:  ft 

ft  »- 

ft 

V 

ft  u 

ft 

W 

ft 

K 

ft 

O 

« 

* 

c 

< 

« 

* 

C ft 

ft 

ft 

o * 

ft 

ft 

in 

ft 

z 

ft 

+ 

* 

O' 

o 

1- 

« a 

# 

m -- 

ft  q: 

ft 

ft  l-i 

ft  a 

ft 

cc 

ft 

u 

ft 

in 

« o 

« 

ft 

ft  o 

ft 

«n> 

ft  o 

ft 

< 

ft 

z 

ft 

» 

in 

« u. 

« 

<M  ^ 

ft  u. 

ft 

*7  Q 

ft  u 

ft 

ft 

ft  o 

ft 

a 

« 

a 

« 

« 

ft  a 

ft 

ft 

» ft 

ft 

ft 

sO 

ft  CL 

ft 

■3 

# 

• 

\L 

♦ in 

« 

ft  “5 

ft  m 

ft 

ft  in 

ft 

(T  ^ ^ 

ft 

z 

ft 

lb 

* 

o 

>- 

c 

« z 

* 

^ * 

ft  z 

ft 

^ *3 

ft  z 

ft 

X in  “3 

ft  o 

ft 

►4 

» 

m 

U. 

« CL 

« 

a>«>  N^ 

ft  a: 

ft 

>- 

ft  ex 

ft 

w » 

ft 

u 

ft 

* 

» 

• 

< 

h- 

* UJ 

« 

ft  UI 

ft 

O »-• 

ft  u 

ft 

(D  O 

ft 

1 

« 

o 

* 

fO 

w 

♦ »- 

« 

CL  X 

ft  1- 

ft 

ft 

ft  1- 

ft 

fM  K 

•li- 

>- 

ft 

« 

e 

c 

c 

« 

# 

">  c 

ft 

ft 

• c 

* 

ft 

1 C 

ft 

ft 

ft 

* 

IT 

• 

LJ 

H 

« UJ 

« 

* ft 

ft  u 

ft 

so  w 

ft  u 

ft 

^ o + 

ft 

U ft 

>- 

« 

» 

Ui 

♦ K 

« 

ft  H 

ft 

•-  V 

ft  »- 

ft 

^ o ^ 

ft 

ft 

CM 

« 

cc 

o 

« 

* 

ft  < 

ft 

W <«iB 

ft  < 

ft 

■3  -H 

ft 

< 

ft 

C 

« 

< 

o 

♦ -J 

« 

u.  a 

ft  -J 

ft 

♦-  CM 

ft  J 

ft 

a 

ft 

aj 

ft 

* 

in 

U UJ 

* D 

« 

ft 

ft  O 

ft 

(X  ft 

ft  D 

ft 

1-4  -) 

ft 

D 

ft 

Q CM 

« 

» 

a 

5 

« O 

« 

^ « 

ft  o 

ft 

O ft 

ft  u 

ft 

CM  * 

ft 

O 

ft 

ID 

c 

« 

(M 

-> 

* -1 

« 

ft  J 

ft 

in 

ft  J 

ft 

X < »-• 

ft  u 

ft 

ft 

Nb 

» 

«-• 

* 

o:  K 

sC 

♦ < 

« 

• s 

ft  < 

ft 

ft 

ft  < 

ft 

ft  1- 

ft 

< 

ft 

—4 

« 

in 

a 

in 

« U 

* 

ft  u 

ft 

^ w 

ft  u 

ft 

-‘-JO 

« 

o 

ft 

“3  H 

* 

w 

o h*  cv. 

# 

« 

W W 

ft 

ft 

c a 

ft 

ft 

•H  U ^ 

ft 

ft 

C 

« 

o 

O <M 

« 1 

« 

Ua  X 

ft  1 

ft 

ft  "3 

ft  • 

ft 

a o ft 

ft 

1 

ft 

ft 

* 

♦ 

z 

• 

* 

w O 

ft 

ft 

IP 

ft 

ft 

“3  >- 

ft 

ft 

w 

a-k 

• 

m 

» <H 

* 

ft  ft 

ft  (\J 

ft 

-3 

ft  fO 

ft 

m.  • a 

ft 

if 

ft 

>- 

•» 

* 

« • 

« 

K — 

ft  • 

ft 

» •• 

ft  • 

ft 

1-^  H CM 

ft 

• 

ft 

C 

"3 

« 

o 

» in 

QC 

• 

♦ ^ 

« 

O “) 

ft  ^ 

ft 

^ X 

ft  s 

ft 

w J O 

ft 

«■ 

ft 

« 

»-• 

0. 

* • 

« 

Q. 

in 

ft  • 

ft 

w C 

in 

ft  • 

ft 

I • 1- 

ft 

• 

ft 

11 

r- 

» 

m uj 

O J 

♦ O' 

« 

O M 

ft  cr 

ft 

IL  ft 

ft  O' 

ft 

B-.  O 

ft 

O' 

ft 

••k 

w 

« 

D h- 

o u. 

» ^ 

« 

ft  w 

in 

ft 

ft 

ft  -* 

in 

ft  ^ 

ft 

•M 

ft  OC  ft 

ft 

•^ 

ft 

“3 

X 

m 

« 

Z 

K z 

« 

ft 

O X 

ft 

ft 

O “3 

ft 

ft 

♦ 

moo 

ft 

ft 

* 

o 

# 

o 

< 

* u» 

ft 

• o o 

ft  u 

ft 

• » 

o 

ft  u 

ft 

O. 

• • 

ft 

u 

ft 

ft 

c 

» 

►- 

K 

z 

y 

-1 

w 

* o 

ft 

^ ft 

ft  o 

ft 

h- 

ft  ID 

ft 

X 

O w w 

ft 

o 

ft 

w 

< 

1- 

* 

z 

X -1 

* < 

ft 

II  ^ 

ft  < 

ft 

M 

ft  4 

ft 

II 

II  II 

ft 

< 

ft 

Z 

ID 

« 

o 

o u.  0:  O < u. 

♦ K 

ft 

CM  "3  O 

ft  K 

ft 

CM  X 

O 

ft  H 

ft 

ec  CO  u CM 

ft 

K 

ft 

V 

U 

o 

* 

45  >-•  Q. 

u. 

u •-• 

# m « 

O 

ft  1/) 

ft 

ID  O O 

ft  m 

ft 

X Q O 

ft 

in 

ft 

c 

Z 

o 

ft 

o 

in 

in 

C 

m 

o 

r- 

CM 

IT 

IT 

f^ 

IT 

in 

in 

u u 

U 

c 

c 

c 

u 

u u o u o 

(J 

c 

c 

c 

c 

c 

c 

c 

u 

i 


130 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


« 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

« 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

« 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

• ft 

ft 

ft 

• 

ft 

ft 

ft 

ft 

ft 

» 

ft 

CM  ^ 

ft 

ft 

CM 

ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

w 

ft 

ft 

ft 

ft 

« 

ft 

ft  ^ 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

^ CL 

ft 

ft 

CL 

ft 

ft 

ft 

ft 

« 

ft 

3 “> 

ft 

ft 

~> 

■3 

ft 

ft 

ft 

ft 

» 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

* 

ft 

►». 

ft 

ft 

•-4 

ft 

ft 

ft 

ft 

» 

ft 

w ^ 

ft 

ft 

w 

ft 

ft 

ft 

ft 

« 

ft 

V 2 

ft 

ft 

>- 

I 

ft 

ft 

ft 

ft 

» 

ft 

O X 

ft 

ft 

O K>  1 

ft 

ft 

ft 

ft 

* 

ft 

ft  1 

ft 

ft 

ft 

K>  -- 

ft 

ft 

ft 

ft 

ft 

M A 

ft 

ft 

• "3 

ft 

ft 

ft 

ft 

* 

ft 

-5  -) 

ft 

ft 

3 CNi  • 

ft 

ft 

ft 

ft 

• 

ft 

• K>  •• 

ft 

ft 

* 

ft  •-» 

ft 

ft 

ft 

ft 

« 

ft 

M fO  M 

ft 

ft 

ft  — 

ft 

ft 

ft 

ft 

» 

ft 

w • w 

ft 

ft 

--  r 

ft 

ft 

ft 

ft 

* 

ft 

>-  <\i  I 

ft 

ft 

> 

^ X 

ft 

ft 

ft 

ft 

» 

ft 

O ft 

ft 

ft 

O 

ft 

ft 

ft 

ft 

in 

ft 

ft 

ft  ft  ft 

ft 

ft 

ft 

(L  ft 

ft 

ft 

ft 

ft 

ft 

ft 

o ^ 

ft 

ft 

0 3^ 

ft 

ft 

ft 

ft 

o 

ft 

ft 

ft 

ft 

• 

ft 

ft 

ft 

ft 

K 

ft 

ft 

^ ^ ^ 

ft 

ft 

\0  ^ ^ 

ft 

ft 

ft 

ft 

ft 

ft 

^ a a 

ft 

ft 

w a 

ft 

ft 

ft 

ft 

O 

ft  ^ 

ft 

w -j  3 

ft 

2 

ft 

w 

O 3 

ft 

ft 

ft 

ft 

10 

ft  ^ 

ft 

ft 

ft 

H 

ft  • 

ft 

ft 

ft 

ft 

ft  < 

ft 

q: 

ft 

Z 

ft 

q: 

•1^  M 

ft 

ft 

ft 

ft 

ft  ^ 

ft 

e w w 

ft 

O 

ft 

o 

“3 

ft 

ft 

ft 

ft 

ft 

ft 

U)  o c 

ft 

ft 

in 

O 

ft 

ft 

ft 

ft 

in 

ft  a 

ft 

ft  ft  ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

cv 

* o 

ft 

<\j  — 

ft 

o 

ft 

CM 

w ^ 

ft 

(L 

ft 

ft 

cr 

ft 

• 

in 

ft  H 

ft 

ft 

(C 

ft 

ft 

C ”3 

ft  UJ 

ft 

ft 

U' 

ft 

ft 

ft 

ft  • • 

ft 

ft 

ft 

w •. 

ft 

ft 

ft 

ft 

c 

ft  2 

ft 

^ ^ 

ft 

z 

ft 

X •-» 

ft 

a 

ft 

ft 

a 

ft 

• 

►- 

# O 

ft 

*■»  w 

ft 

o 

ft 

w 

ft 

a 

ft 

ft 

or 

ft 

OD 

ft 

ft 

•HOC 

ft 

ft 

<\J  C 

ft 

< 

ft 

ft 

d 

ft 

c 

cc 

ft  >- 

ft 

0.  ^ 

ft 

ft 

Q. 

ft 

ft 

oc 

ft 

ft 

oc 

ft 

in 

e 

• 3ft 

“J  V ft 

ft 

o 

ft 

-> 

ft  ft 

ft 

ft 

ft 

ft 

(N. 

ir 

ft  a 

ft 

ft 

a 

ft 

% 

« >- 

ft 

K 

ft 

ft 

>- 

ft 

£ 

IT 

c 

ft  z 

ft 

w C4  <V 

ft 

z 

ft 

^ C\j 

ft  z 

ft 

ft 

a 

ft 

“3 

K 

O 

ft  •-( 

ft 

W * O 

ft 

ft 

w 

^ o 

ft 

UJ 

ft 

ft 

ft 

O 

C^  H 

ft 

ft 

U.  ft 

ft 

ft 

U. 

W>*  H 

ft 

* 

ft 

ft 

or 

ft 

K 

O 

• 

ft  u 

ft 

ft  ^ o 

ft 

ft 

ft 

a o 

ft 

< 

ft 

ft 

O 

ft 

w 

o 

O'  o 

ft  <c 

ft 

^ c 

ft 

<[ 

ft 

n IT 

ft 

s- 

ft 

ft 

0 

ft 

e 

O 

O' 

lO 

ft  O 

ft 

•5  ft 

ft 

o 

ft 

“3 

ft 

ft 

CL 

ft 

ft 

£ 

ft 

< 

e 

cr 

ft 

ft 

ft 

ft 

ft 

ur 

ft 

ft 

ur 

ft 

1 

ft  H 

ft 

ft 

h- 

ft 

•-•2-3 

ft 

CL 

ft 

ft 

I- 

ft 

id 

• 

ft 

ft 

ft 

ft 

w 

ft 

ft 

ft 

ft 

cs- 

ft  • 

ft 

UJ  U.  £ 

ft 

1 

ft 

Li. 

a—  •«H 

ft 

1 

ft 

ft 

1 

ft 

<v 

9 

ft 

ft 

C W 

ft 

ft 

w 

X 

ft 

ft 

ft 

ft 

tn 

c 

• 

• 

ft  m ft 

►H  ft  w >. 

ft 

ft 

(d  ft 

o >- 

ft 

ft 

ft 

<0 

ft 

* 

• 

UJ 

o 

ft  « 

ft 

H 1“  X O 

ft 

• 

ft 

O »“ 

ft  o 

ft 

• 

ft 

• 

ft 

• 

ft 

• 

c. 

c 

• 

UJ 

ft  ^ 

ft 

M D C 

ft 

ft 

•H  O 

ft 

ft 

O 

ft 

ft 

O 

PO 

UJ 

-3 

• 

ft  • 

ft 

CL  ft  II  N 

ft 

• 

ft 

H CL 

^ II 

(V* 

CO 

ft 

• ft 

II 

ft 

• 

ft 

II 

w 

• 

X 

ft  O' 

ft 

^ O ^ iD  ^ 

ft 

a 

ft 

II  O CL  ^ 

10 

ft 

O'  ft 

ft 

cr 

ft 

Q 

X4 

o 

ft 

ft 

a ft  3 ">  V in 

ft 

ft 

ft 

3 n 

X 

in 

ft 

ft 

“0  in 

ft 

ft 

”3 

X 

u. 

W 

X 

ft 

ft 

“J  C k 

ft 

ft 

“)  O 

« • 

ft 

ft 

» 

ft 

ft 

* 

U. 

4- 

I 

ft  w 

ft 

» • ^ o 

ft 

UJ 

ft 

« • 

H 

c 

ft 

Uj 

ft 

»H  C 

ft 

Ui 

ft 

X 

ft  o 

ft 

W W w W Q K 

ft 

o 

ft 

M aH 

o 

ft 

e> 

ft 

H 

ft 

o 

ft 

w 

w 

w 

w 

ft  < 

ft 

II  X 2 ft 

ft 

< 

ft 

II 

X z 

ft 

ft 

< 

ft 

Z 

ft 

< 

* 

z 

II 

ft  ►- 

ft 

Z (M  O V X O 

ft 

K 

ft 

2 <M  O >- 

o 

ft 

ft 

X o 

ft 

I- 

ft 

X u. 

X u. 

u.  u.  u. 

ft  \/) 

ft 

X o ^ o > o 

ft 

cn 

ft 

X o 

W o 

>- 

10 

ft 

in 

ft 

O 10 

ft 

in 

ft 

o 

*>« 

cv 

in 

c 

lO 

w 

vH 

IT 

in 

ir 

in 

IT 

IT 

c 

c 

c 

U 

c 

c 

c 

c 

u 

c 

c 

c 

c 

c 

u 

o 

c 

c 

u 

131 


I 


********* ***»*»*******»***********************^** ********** ***t*** 


M 

H 

CO 


nJ 


« 

# 

« 

N. 

* in 

« 

K 

* 

* 

« 

* z 

* 

o 

* 

« 

* 

0^ 

» o 

» 

V 

* 

« 

« 

“> 

♦ 

« 

* 

* 

« 

* 

» H 

* 

* 

* 

« 

♦ »-• 

» 

“3 

« 

* 

* 

w 

« C 

* 

* 

« 

« 

» 

z 

« z 

* 

* 

* 

* 

« o 

« 

* 

* 

* 

o 

* o 

« 

w 

« 

• 

» 

1 

* 

« 

Z 

* 

« 

* 

* >- 

* 

1 

# 

* 

«- 

« o: 

0^ 

* 

« 

* 

« < 

» 

* 

« 

« 

“5 

* o 

« 

o 

o » 

* 

* 

« 

» z 

« 

o 

o w 

« 

« 

* 

# D 

« 

• 

• M 

« 

# 

* 

* O 

« 

•H  1 *«»' 

« 

* 

* 

z 

« 03 

* 

o 

o ^ z 

* 

* 

* 

>• 

« 

* 

O -> 

0-3  1 

« 

* 

* 

e 

* mj 

* 

>o  • ^ 

• * w 

* 

» 

* 

w 

« < 

« 

o 

O 1 C\i 

+ <M  # 

* 

« 

* 

♦ 

« l-t 

« 

CM 

•O  ^ -f 

♦ X 

« 

* 

« 

X 

* o 

« 

in 

-3  O 

« 

• 

* 

o 

« u 

* 

o • 

* w 4 

* 

* 

« 

V 

« 0. 

« 

c 

K ^ Z 

^ Z ^ 

* 

« 

« 

* lO 

« 

1- 

X 

I "3 

* 

« 

« 

0m, 

* 

♦ 

O II 

w II  •. 

* 

« 

* iA 

« 

o 

O I ^ 

I ^ 

« 

« 

« 

* hi 

« 

ID 

II  "> 

II  "3 

« 

* 

« 

* 

H 

« 

0m,  0>m  m 

0mm 

» w 

* 

« 

« 

w 

< 

« 

0mm 

-3  — 

'■>  0-*  z 

1 

« 

« 

-J 

« 

Z 

* 

U 

« 

» 

11  >■ 

1 

• 

« 

LJ 

« 

X 

« 

D 

« 

O ^ ^ 

0^ 

w C 

1 

« 

* 

> 

« 

o 

» 

U 

» 

z 

Z 4 

* 

* 

LJ 

* 

1 

# 

J 

« 

0 

. W X 

w 

X ^ 

* 

« 

mJ 

« 

« 

< 

* 

c 

H Z 

z 

w 

* 

« 

« 

« 

u 

« 

Ui 

O I 

X 

--  1 

• 

« 

» 

QL 

« 

« 

* 

• 0^ 

• ^ 

— “3 

O' 

« 

* 

UJ 

* 

<0 

« 

o 

* 

X 

-3 

0% 

-3  •* 

« 

« 

1- 

« 

z 

« 

(VJ 

« 

0^  o w ^ » 

0m, 

« 00 

« 

« 

< 

« 

IT 

« 

IT 

« 

1C 

T -3  <M 

“3  W ►- 

LJ 

« 

« 

X 

w 

* 

mJ 

* 

”3  CVJ  10  O • 4 

4 

C 

* 

« 

« 

z 

O 

« 

O -J 

« 

* X 

«H  1-4 

•1  Z 

< 

« 

« 

UJ 

« 

X 

1- 

« 

1-  < 

« 

^ ^ o c 

• M *>» 

>- 

1- 

« 

« 

K 

« 

o 

* 

X 

« 

*-^-3-34^-0•^Z 

w 

z c 

in 

« 

* 

< 

« 

w 

o 

« 

0. 

« 

^ • (\J 

Z X X 

I 

X 1 

* 

« 

mJ 

♦ 

w 

e 

* 

O K 

« 

e lo  oj  X o 

< 

0^ 

u. 

« 

* 

D 

« 

* 

« o u. 

« 

<4  400 

• • • 

• 

• “3 

o 

* 

« 

U 

« 

1- 

0‘m 

« 

^ Lj 

« 

_l  1-1  •-•  4 

K K 

1- 

H • 

* 

« 

J 

* 

o 

♦ 

-J 

* 

X 

U.  w w ^ ^ 

• 0-1 

-1 

O ^ 

c 

« 

* 

< 

« 

4 

tr, 

* LJ 

* 

• 

Lj 

• 

►-  I X “3 

c.  • • 

• 

• tm0 

z 

« 

« 

U 

« 

* 

X z 

« 

O 

O 

o 

••  1 1 in 

W 

UJ 

* 

« 

« 

-3 

• 

* K O 

* 

O 

o 

0 0mm  0<m 

0* 

^ z 

* 

« 

1 

« 

o 

» 

4 

o 

0mm 

o 

• -3  “3  •-< 

H -3  “3 

-3 

"3  X 

« 

• 

* 

u^ 

* 

1 

* 

o 

-3 

v-l  O'  * * ^ • 

e •>  •. 

* c 

1 

* 

• 

IT) 

« 

w 

• 

« 

* 

^ II 

“3  "3 

1 

<M  lO  <VJ  X 1- 

CM 

1 

* 

« 

• 

* 

I 

03 

« 

o 

* 

1 

“3  “3 

M 

4 4 II  J 

M 1-4 

H4 

n II 

w 

1 

« 

» 

O' 

* 

II 

^ o 

* 

• 

« 

II 

UJ 

^ “3 

Q M • 

CJ  w w 

o 

w 

w 

UJ  X 

« 

* 

* 

0^ 

IT  I 

• 

o 

4 

D I 

w 

-3  1 w w -3 

X Z Z lO  z 

2-501 

« 

* 

« 

-3 

» 

<\J 

« 

-3  Z -1  O 

*>0 

-3  ^ 

UZZ  ^“30XX 

X 

I • 

X 

-J 

cr 

* 

« 

Ui 

« 

O 

» 

4 

M C\i  »-•  I 4 

X X -• 

o 

•-< 

11 

« 

« 

O 

« 

CC 

* 

UJ 

4 

1- 

X in  X -1  « 

^ II  II 

WWW 

*- 

w 

w w 

1- 

X 

o 

» 

« 

< 

« 

4 

« O 

4 

w 

Z UI 

mJ 

11  II 

0i  CM^ 

z 

Z UI 

z 

« 

« 

H- 

« 

z >- 

o u. 

* 

< 

4 

Z O 

o o 

II 

'^vHZUXXZU.UUU 

o u 

U X 

o 

o 

UJ 

« 

* 

l/> 

» 

I O O 

* 

H 

4 

X U Q 

o 

n O 

u 

•H 

in 

<\J 

<H  <C 

O 

c 

CM 

CM  •H 

o 

o 

CM 

in 

in  IT 

K) 

lO 

IT 

uuuuuuouuu  uuuuuu 


u 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


• I/) 

• 'Z. 

• o 


• *>4 

• z 
« o 
« u 

• 

• >• 

• a. 

« < 

« o 

• z 

• D 

• O 

• CD 

• 

# -I 

* < 

• ^ 

* O 

• UJ 

• o 

• i/> 

« 

# llJ 

# >- 

* « 

# J 

• D 

# u 

« J 

• < 

• (J  ^ 
« J 

• c •% 

• iT 

• »• 

• OX 

• K e 

• I- 

• 0 a 

• o 

• C bJ 

• J X 

• K 

• U) 

• X z 

• »-  o 

• 

• I 

• o 

• • 

• •>< 


OJ 


o 

in 


o 

o 


o 


K)  O 

IT  K 

• c c 

liJ  c 

o 

• o 

o 

^ >0 
^ 0^  tr 
“)  <N< 

<\l  • 

K 

O • -I 
< bi  • 
-J  Z 
u • ^ . 


I ^ T ^ 
• 0*1 

I o 

* I - 

I M 

n Z Z 

* X I 

M II 

X S “) 

II  * •^ 
«>»  ^ 
-)  w w 

* z z 

• I T 


>< 

U.I 

a 


M ”5 
")  “5 
•)  * 
<\J 

o 

in  I 
-I 
O II 

o 


• lO  -)  T 

o * * * 

o lO 

«—  o in  w w 

^ o o 

->  I < « 
* II  O J J 
(Vi  ^ J U.  b. 
w -)  u.  M 
“)  * 

X ^ w 

-J 

II  z u.  u.  u 

T I 


(\) 

I I 

“)  "5 


X X 

I I 


^ ^ « 


<M 
I I 
“5  “> 
(VJ  * * 
O *4  >H 
m w w 


“3  Z 


0X1 
H M M 
*4  (VJ 

o X X 

ID  O O 


X <M 
II  o 
tn 

“) 

* o 


z o 

X o 


X 

II 

X 

o 

o 

lO 

r^ 


*4  (Vj  .H 

I O 1 
0*0  0 

I 

^ <\J  o • 

“5  X ►-  C 

• o z 

•-4  ♦ O < 

• (VO* 

►4  I 

w o ^ • 
1 ♦ o 
I ^ in 

• 

K 

• •-*  • O 


I X J 
*4  II  • cv 

1 * 

H 

(V  ^ 

X Z U.  li. 

O X *-4 


^ -J  *4 

• I 

^ ^ 

I * 


z z 

X I T 


O 

X 


•H  I 
O I 

0 ^ 

• “> 

1 * 

<»».  ^4 

n w 
•4  * 3r 
O *4  X 
O I w 

•►4  • 
♦ X 

r c 
"5  x I 
* II  ^ 


I “>  1-4 

II  * w 

--.•-4  2 

^ 

* z o 

*-•  1 I 


X I 

"3  * 


“3  I Z 
*»-•>. 
1-4  W C 

^ z ♦ 

I 3 


-3  “3  “3 


.2 

*3  “3  X 

*.  •.  » • % O 

•-4  1-4  1-4  (V  *4  •-«  II 

ww— 'O'—  '-'  — UJ 
zzzmzz“3Z' 
III  I X * z 

c 


wwwwK  — — 

Z Z Ui 

U.U.U.OU.U.XOO 

•H*4*40*-4*-400*^ 

IT  (V  ^ 

o o o 

r*  IT  ir 


i/> 

• z 

• o 

• •■4 

• H 

• •-• 

• o 

• z 

• o 

• o 

• 

• V 

• a 

• < 

• o 

• z 

• D 

• o 

« (D 

• .J 

• < 

• *-• 

• O 

• Li 

• CL 

• I/) 

• 

• in 

ft  UJ 
ft  H 
ft  4 
ft  ^ 
ft  D 
ft  O 
ft  ^ 
ft  4 
ft  C' 
ft 

ft  :f 
ft 

ft  in 

ft 

ft  o ^ 

ft  H -J 

ft  < 
ft  (L  » 
ft  O 

ft  c a 

• JO 

ft  H 
ft  UJ 

ft  X z 

• HO 

ft 

ft  I 

ft 

ft  c 
ft  • 
ft  (V 
ft  (V 
ft 

ft  UJ 

ft  o 

ft  < 

ft  H 

• in 


X 

u. 

o 


tl 

•3 

“3 

m 

o 

o 


U (J  U (J  u 


u u u o o u 


133 


I=LHI (3# JJ) 

J=LHJ(3»JJ) 

IF  ( IFLASd.J)  .FO.  27  ) GO  TO  303 
HN( I , J)=-1000. 


TABLE  5-.  1 - continued 
LISTING  FOR  PROGRAM  MASON 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


* 

» 

» 

« 

* 

» 

« 

« 

* 

* 

« 

* 

« 

* 

* 

« 

« 

* 

« 

« 

« 

« 

* 

» 

» 

» 

* 

* 

* 

* 

* 

« 

« 

* 

* 

« 

« 

* 

* 

« 

« 

* 

* 

» 

« 

* 

* 

« 

« 

« 

* 

« 

* 

* 

« 

« 

* 

* 

« 

z 

« 

« 

* 

« 

« 

« 

» 

cc 

» 

* 

« 

* 

« 

* 

« 

« 

o 

« 

* 

« 

« 

0. 

* 

« 

» 

« 

u. 

* 

* 

« 

* 

z 

* 

* 

« 

«• 

UJ 

» 

» 

* 

« 

« 

» 

« 

* 

tt 

* 

* 

« 

« 

« 

* 

* 

CL 

« 

« 

» 

« 

* 

« 

« 

* 

« 

* 

« 

o 

« 

* 

« 

« 

UJ 

* 

« 

« 

» 

o 

« 

« 

« 

(t 

* 

* 

* 

* 

o 

* 

* 

* 

« 

« 

» 

« 

♦ 

_l 

« 

« 

« 

* 

a 

« 

« 

» 

li. 

» 

» 

« 

« 

z 

« 

« 

* 

« 

« 

« 

» 

< 

« 

« 

* 

u. 

« 

* 

« 

» 

* 

* 

* 

« 

« 

« 

« 

« 

o 

# 

* 

» 

« 

« 

« 

» 

» 

o 

« 

« 

« 

1 

« 

« 

« 

« 

z 

« 

« 

o 

» 

1 

« 

« 

* 

« 

« 

« 

« 

« 

* 

* 

* 

» 

J 

« 

« 

c 

« 

» 

UJ 

* 

* 

« 

* 

J 

« 

* 

z 

« 

« 

c 

« 

* 

« 

< 

* 

« 

UJ 

« 

» 

« 

« 

in 

* 

u 

» 

* 

* 

« 

K 

« 

O 

« 0. 

» 

o 

« 

« 

« 

« 

» 

« 

K 

» 

z>  # 

« 

1 

« 

« 

1 

« 

« 

OD 

» 

« 

X 

« 

* 

« 

1 

* 

» 

CC 

« 

O 

* 

o * 

o 

u 

«• 

o 

» 

« 

1 

« 

« 

UJ 

« 

o 

« 

z 

« 

UJ 

« 

z 

« 

# 

* 

« 

» 

* I-* 

« 

ir 

z 

« 

3 

« 

« 

* 

q: 

« 

«■ 

tt 

« 

O o aC 

o 

« 

o 

« 

o 

« 

« 

o 

« 

« o 

« 

^c  o 

« 

u. 

# 

« 

• 

« 

« 

« 

oo 

« 

« 

h- 

0. 

* 

« 

» 

K) 

* 

o 

« 

CM 

« J 

« 

^ o 

o 

o 

* 

z 

« 

CL 

* 

CM 

« 

« 

o 

* 

« -J 

* 

H o 

sD 

o 

« 

K 

« 

a 

* 

« 

o 

« 

* 

« 

UJ 

« 

« 

Q 

in 

« 

c 

« 

UJ 

* 

« 

* 

« 

u 

« 

in  o 

O 

* 

UJ  Z 

» 

« 

e 

« 

» 

u. 

« 

* 

« 

CM  O C 

z 

« 

o o 

« 

« 

< 

« 

« 

« 

w 

« 

a 

* 

O 

* 

(-4 

« 

K 

« 

K 

♦ 

u. 

« 

X 

* o 

« 

• ^ 

o 

« 

UJ  K 

« 

« 

in 

« 

« 

« 

* 

u. 

* 

UJ  ^ 

o 

•J 

» 

> 

< 

« 

O 

« 

* 

* 

« 

• 

» 

« 

IT  ^ O 

« 

•-4 

_J 

« 

o 

« 

b. 

« 

» 

« 

« 

« 

. -3  • • 

«— 

« 

H 3 

« 

z 

* 

o 

« 

« 

o 

« 

e 

« 

o 

* in  o 

u 

» 

(J 

« 

or 

« 

* 

UJ 

• 

* 

UJ 

« 

1 

•H 

# 

O -1 

« 

CL 

* 

c 

« 

« 

z 

* 

♦ z 

X X “3  • 

c 

« 

UJ  < 

* 

« 

z 

« 

« 

u 

« 

« 

u 

* 

< < *,  N • K 

• 

o 

« 

z o 

« 

« 

UJ 

« 

« 

* 

CM 

* 

Z Z 1 H -J 

o 

z 

« 

« 

UJ 

« 

« 

« 

1 

« 

* 

1 

« 

J • 

UJ 

* 

1 

* 

z 

« 

* 

* 

* 

* 

* 

•.•.O'?* 

• 

» 

# 

« 

1 

* 

« 

o 

« 

* 

o 

* 

^ CM  < » O 

00 

* 

« 

H 

« 

1 

« 

* 

• 

« 

» 

• 

« 

11  M -1  1-4  O U.  ^ 

a 

r- 

* 

• 

* 

w 

« 

1 

« 

« 

• 

« 

m 

« 

^n4U.'--’U.^UJ*h 

o 

» 

« 

in 

« 

o 

« 

» 

CM 

« 

z 

« CM 

« 

*■4  z ►-»  O 3 >0 

o 

h- 

w 

« 

CM 

« 

o 

* 

« 

« 

« 

z 

* 

* 

in  in  z o z 

-j 

1- 

« 

« 

z 

* 

u 

« 

» 

UJ 

« 

« UJ 

« 

O C ^ II  — #-i  o 

II 

K 

<■ 

« 

Ui 

« 

« 

« 

* 

* 

w 

« 

o 

» 

<H  sO  sO  O — K 

11 

w 

0. 

z z 

« 

o 

* 

J 

* 

o 

» 

» 

< 

« 

« 

< 

* 

II  u.  z 

o 

o 

q: 

* 

< 

« 

J 

* 

z 

* 

* 

H 

« 

u. 

* ►- 

« 

u.oou.(-4u.ij.ooou.oao 

* 

K 

« 

< 

« 

UJ 

» 

* 

in 

* 

* 

in  « 

XOO*-40l-4»ii4UO*-4l-tJQ.lL 

* 

in 

« 

u 

o 

in 

xC 

<c 

o 

o 

sO 

^0 

h- 

r- 

u 

c 

c 

c 

c 

u 

c 

c 

c 

c 

u 

o o u o u 

(J  u 

o o 

u 

u 

135 


GO  TO  420 

607  CALL  M0DPRI(19»TIME) 

PRINT  8877 

8877  FORMAT (1H1»15(/)** 

HUNG  IN  LOOP«/t  CHECK  AROVE  PRINTOUTS  FOR  NEGITIVE  ORV 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


^ in  >0  c 0^ 

sC 

^ ^ ^ ^ ^ ^ 

r* 

m m lo  fO  loio 

fO 

»o 

KKKHI-K 

K 

H- 

in  in  in  m m m 

in 

in 

UJ  UJ  UJ  UJ  UJ  UJ 

UJ 

UJ 

« 

* 

« 

« 

« 

« 

« 

* 

« 

* 

« 

« 

» 

* 

* 

* 

• 

* 

« 

N. 

« 

* 

« 

» 

« 

« 

« 

• 

» 

• 

* 

« 

* 

« 

O 

* 

* 

• 

« 

« 

* 

« 

UJ 

« 

* 

* 

* 

* 

« 

* 

K 

« 

« 

• 

« 

* 

« 

« 

u 

« 

« 

* 

* 

« 

« 

* 

UJ 

• 

* 

* 

« 

» 

* 

« 

o: 

« 

* 

« 

« 

* 

« 

» 

K 

# 

« 

« 

» 

« 

« 

* 

o 

« 

« 

* 

« 

• 

* 

« 

u 

« 

« 

« 

» 

« 

« 

• 

» 

» 

» 

« 

» 

« 

• 

q: 

« 

» 

« 

» 

« 

« 

« 

o 

•» 

« 

« 

« 

* 

« 

(t 

* 

« 

« 

« 

« 

* 

« 

(£ 

• 

« 

* 

« 

« 

* 

Ui 

* 

* 

* 

* 

« 

« 

« 

« 

* 

« 

* 

« 

« 

* 

UJ 

* 

« 

« 

* 

* 

« 

« 

u 

* 

• 

» 

* 

« 

« 

« 

z 

« 

* 

« 

* 

* 

« 

« 

o 

« 

« 

« 

« 

« 

« 

« 

» 

* 

« 

« 

* c 

» 

« 

« 

u 

• CL 

* 

« X 

« 

« u 

« 

« 

* 

o 

IT  X 

* 

« UJ 

« 

« j 

« 

« 

« 

4 

a z> 

« 

* z 

« 

« -1 

« 

A 

* 

* 

< Q 

* 

« 

« 

* 4 

« 

• 

« 

« 

CL 

-1 

« 

« X « 

« U 

# 

UJ 

« 

* 

U.  UJ 

« 

* K 

* 

« 

# 

u 

« 

« 

er 

CL 

• 

« M 

« 

* UJ 

« 

< 

« 

« 

4 

in  < 

« 

* X 

« 

* X 

« 

« 

« 

Z K 

« 

« 

« 

» 

« 

a 

« 

« 

CD 

3 

« 

« in 

« 

* o 

« 

« 

« 

O 

O K 

« < 

* Ui 

« 

« K 

« 

a 

* 

« 

O 

UJ 

Z iO 

♦ K 

♦ D 

« 

« 

« 

< 

« 

« 

K 

a 

o < 

* -J 

* -i 

« 

« in 

« 

in 

-1  — 

« 

1- 

* 

CL  ^ 

« UJ 

» < 

* 

« 

* 

D 0. 

« 

z 

* 

O 

O 

K 

1/) 

« o 

# > 

« 

« 

« 

O CL 

« 

* 

o 

CD 

4 

c 

u.  z 

« •> 

• 

« 

* o 

* 

r o 

U^  c 

« 

Ck 

« 

a:  o 

» o 

* o 

« 

* o 

« 

h-  f- 

a »-4 

« 

a 

« 

O 

O 

o 

01  q: 

« u. 

« -1 

« 

« z 

* 

« 

« 

K 

UJ 

H 

c u. 

« 1-4 

* o 

« 

« 

» 

o o 

H M 

« 

cr 

« 

UJ 

-1  UJ 

u 

« c 

« 

« 

« u. 

« 

I-  e 

4 » 

« 

o 

« 

z 

O 

•J 

3 

C UJ 

o 

« » 

fO 

« UJ 

« 

♦ ^4 

« 

o 

* 

u. 

« 

o 

4 M o 

o 

O UJ 

* UJ 

• 

* o 

« 

“3 

« 

* 

o ^ 

-J  c 

« 

* 

K 

O •- 

Z H 

* X 

o 

* < 

« 

« X 

« 

c 

-J  z 

« 

X 

« 

a 

* 

K 

< CK 

« •-* 

« J 

« 

* u 

« 

CL 

< or 

• 

u 

« 

* 

< 

# K 

UI 

« CL 

* 

M ^ w 

« Ui 

« 

UJ 

U CL 

« 

UJ 

« 

• 

CM 

cr 

CL 

Ui 

iA  K 

« » 

»o 

« UJ 

« 

“3  “3  fs. 

* r 

« 

K 

* z 

* 

UJ 

a 

CL 

3 

X U) 

# “3 

* CL 

« 

X X * 4.  ^ 1 

« u 

« 

^ in 

O • 

» 

u 

• 

•J 

• 

o o 

• 

H UJ 

* « 

in 

« 

* 

4 < 1-4  liN  ^ 

* 

* 

z 

O UJ 

* 

« 

• 

o 

O O K 

(L  q: 

« M 

* 1 

* 

z X w w • -3 

« a 

« 

• 

z z 

« 

a 

« 

UJ 

z 

w 

UJ 

UJ 

« * 

CM 

« 

« 

"3  Z Z ^ 

« 

« 

o • 

« 

* 

1- 

• 

• 

«»4 

O UJ 

« ^ 

» 

« o 

« 

* • X V ^ *-4 

« o 

« 

UI  H a 

K 

« 

o 

* 

z 

c 

o 

IT 

OJ 

* ^ 

K 

* « 

* 

•H  eH  O O Z *- 

• • 

« 

• -I  r^ 

w 

« 

• 

* 

• CO 

CL  K 

z 

o 

* (D  i/> 

• « 

It  II  II  11  Z Z UJ 

♦ N 

» 

• h- 

• o 

# 

CD 

« 

X 

o 

a N 

» 

O X 

^ UJ 

IT  Z 

« CO 

w 

« <\i 

« 

->•-4  ^ ^ II  II  D 

« (Si 

« 

u. 

W o 

« 

a 

• 

IL 

II 

0. 

w 

C 0. 

a 3 

UJ  < 

« 

K 

* 

* 

-3  “3  ^Z 

• 

« 

X o 

K Z 

« 

« 

H 

K 

H 

z 

a z 

N U 

* K 

4 

« UJ 

* 

^ ^ • • *3  “3^- 

* UJ 

» 

U H 

4 

o 

« 

UJ 

• 

r 

K 

4 

« Z 

Z CL 

* o 

« 

^ » % W 

« o 

« 

z Z J 

II 

« 

o 

* 

w 

M 

Z 

z 

J 

W 

-J  I- 

N4  (T  O 

« < 

« 

w «.»  M N4  Z 

« < 

« 

— *-1  CL  J O 

* 

4 

« 

X 

X 

J 

^ z 

K 

O K 

• K 

« 

O O X ► w w o 

* K 

» 

U.  U.  QC  O < U 

# 

K 

« 

u. 

a 

u.  ct 

o 

4 U. 

4 O 

» * 

• CL 

u.  in 

« in 

« 

O O O O X Q U 

* in 

« 

N4  ^ 

u *-4 

* 

in 

« 

K 

•-4  CL 

u. 

U 

U U 

* « 

* 

s 

O' 

m 

o 

o 

•H 

r- 

OO 

CD 

c 

r- 

OO 

h- 

h- 

o u u u u 

c 

c 

c 

U O 

u u u u u 

CD 

136 


TABLE  5.1  - continued 
LISTING  FOR  PROGRAM  MASON 


•o 


o 

« 


K>  10 


(/)  i/) 
UJ  UJ 


« 

* 

* 

» 

« 

« 

» 

« 

* 

* 

* 

« 

« 

• 

* 

« 

* 

* 

* 

• 

» 

* 

* 

CM 

« 

* 

» 

« 

* 

« 

« 

* 

« 

* 

» 

* 

» 

< 

* 

* 

« 

* 

« 

* 

« 

X 

« 

« 

* 

« 

« 

« 

« 

* 

» 

* 

* 

* 

» 

* 

« 

* 

« 

* 

* 

« 

* 

« 

< 

« 

« 

« 

« 

* 

* 

« 

X 

* X 

« 

* 

* 

« 

* 

* 

« z 

« 

« 

« 

« 

« 

« 

A 

* 3 

» 

« X 

* 

« 

* 

« 

< 

h- 

* 3 

« 

« o 

« 

* 

* 

» 

z 

• 

« 

* 

* o 

« 

* 

« 

• 

I 

:» 

» O 

« 

* X 

* 

« 

« 

« 

» 1/) 

» 

» 

« 

* 

* 

« 

z 

UJ 

* 

» 

« K 

* 

« 

* 

« 

X 

« X 

« 

♦ o 

« 

» 

* 

* 

« Ml 

* 

# z 

* 

» 

* 

« 

II 

* 

» 

» 

« 

* 

* 

« 

« 1 

« 

« X 

« 

« 

* 

« 

z 

UJ 

» 

* 

» 1-4 

« 

* 

» 

* 

o 

z 

* o 

« 

« 

« 

« 

« 

o 

•M 

UJ 

« X 

« 

« o 

« 

« 

« 

« 

z 

« X 

« 

« X 

« 

« 

« 

« 

lO 

MH 

* u 

» 

* z 

* 

« 

* 

» 

z 

K 

>- 

« < 

« 

♦ u 

« 

« 

« 

« 

o 

< 

* X 

« 

« < 

« 

« 

« UJ 

« 

u 

a 

« X 

« 

* X 

» 

« 

* 0. 

« 

» 

UJ 

CM 

« 

« 

* X 

* 

« 

* < 

« 

CM 

X 

w 

« z 

« 

« 

» 

* 

* H 

z 

< 

* X 

« 

« z 

* 

« 

« 

* 

c 

X 

« X 

« 

« X 

» 

* 

« o 

« 

u 

X 

* m 

« 

« X 

« 

« 

* H 

« 

o 

c 

« 

« 

« ffi 

« 

« 

« 

« 

w 

1- 

o 

« IT) 

« 

CM 

« 

« 

* 

# H 

« 

z 

z 

« < 

* 

c 

* U) 

« 

« 

♦ 3 

« 

o 

» 

« z 

« 

» < 

« 

« 

« 0. 

« 

o 

u 

u 

« 

« 

o 

* z 

« 

« 

♦ K 

« 

a 

ID 

u 

« z 

* 

K 

* 

* 

CM 

« 

• 3 

» 

< 

« •-• 

« 

« K 

* 

« 

« O 

« 

o 

3 X 

u 

« X 

* 

o 

« < 

« 

* 

« 

« 

X • 

» 

* K 

« 

o 

« z 

« 

o 

« 

« (r 

« 

-J  lO 

^ UJ  u 

A 

« 

« 

* K 

« 

H 

« 

« o 

« 

o o 

^ X 

^ Z -1 

» X 

« 

« 

« 

« 

* u 

« 

in 

A 

Ml  » 

* M M4 

UJ 

• 

# IH 

» 

« X 

« 

o 

« 

« 

« 

* 

^X  CM 

•1  H X 

X 

* 

« 

z 

# l-l 

* 

o 

« 

« ^ 

« 

* 

•J  X 

+ 

e 

« ^ 

« 

Ml 

« 

« 

« 

« <j 

« 

UJ 

UJ  • h- 

K 

* u 

« 

X 

« ^ 

* 

« 

» UJ 

* 

O 

A 

0.  •H 

X Ui  3 

1- 

• 

« X 

« 

H 

« o 

« 

X 

« 

* X 

« 

< X X 

< X X 'f 

X 

« z 

* 

« X 

« 

< 

* 

* u 

* 

• UJK-I  • t-  O 

H « H 

-f 

z 

« u 

« 

• 

« z « 

z 

« 

* 

« 

O 

^ Z X < 

M H 3 UJ 

• 

* 

« 

X 

* u 

« 

H 

« 

« 1 

* 

Ul  M 

UJ  0)  U -1 

OX  UJ 

» 1 

« 

o 

« 

# 

• 

« 

« 

« 

• K U.  Z 0.  U. 

K >>  X » < Z 

H 

* 

« 

• 

« 1 

« 

K 

« 

« o 

« 

O ^ 

I o o UJ  • •-  K 

Ml 

Z 

» o 

« 

* 

« 

« 

« • 

« 

UJ  K X H 0.  > 

J O'  X Ml  K 

Ml 

« • 

« 

X 

« o 

* 

• 

» 

♦ O' 

« 

X 1/)  u 

^ ^ z ^ 

A 

M ^ W 

X 

X 

« o 

« 

z 

* ^ 

« 

X X 

* 

« CM 

• 

< UJ  rr  ^ 3 ^ 

^ w X K)  II 

II 

X 

3 

# lO 

« 

M 

♦ lO 

« 

Z 3 

« 

« 

« 

K H i/) 

w 0.  w 

w w » t- 

o H z 

« 

« 

K 

« 

« 

1-4  Z 

« 

« UJ 

« 

K 

UIUI  ^UJUJUJUj  h<uik* 

II 

1-^ 

« X 

« 

« X 

« 

H 1-4 

* 

* o 

* 

K 

» o 

« 

w 

« o 

» 

w »- 

« 

♦ < 

« 

w 

-1 

Ml  1^  X ^ 

IH 

MH^jMltf<UJ3 

Z 

# < 

* 

« < 

« 

z 

# 

* ►- 

* 

u.u.<<tQcro:Q:Q:Qc<crOHKOU.o 

« H 

« 

X 

# *- 

« 

X o 

« 

« 0) 

« 

•H 

K1  U ^ X • V 

X X U X X 1-4  H 

M O 

« Ul 

« 

* U) 

« 

Ml  U 

« 

* 

« 

* 

« 

« 

« 

* 

« 

* 

* 

* 

« 

» 

« 


{/i 

UJ 


o 

tn 

CM 

U U O U <J  UUUOO  OUUUU  CDUUUUU 


137 


stage  32.0  - CHECK  FOR  D'lMP  TO  TAPE  OF  FINAL  VALUES 


FIG.  5.1  (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 


FIG.  5.1  (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 


L 


STAGE  19.0 
BEGIN  COMPUTATIONS 


BEGIN  LOOP  A 


FIG.  5.1  (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 


i 


STAGE  19.3 


STAGE  19.4 


END  LOOP  G 


---  STAGE  20.0 


STAGE  21.0 


STAGE  22.0 


END  FLOW 
COMPUTATIONS 


FIG.  5.1  (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 


1 


FIG.  5.1  (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 


STAGE  25.0 


STAGE  25.1 


LOOP  = 1 


HN(11,12) 

H(ll,12) 


KF  = 1 


ANY  NO 

.DEPTHS  < 0J> ^ 


PRINT  ERROR 
MESSAGE 


TPRINT=0 


STAGE  24.0 


REPLACE 
OLD  VALUES 
WITH  NEW 


STAGE  26.0 


ICO=NSTEP 


TPRINT 

< 

.FTIME  ^ 


STAGE  28.0 


FIG.  5.1  (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 


5 


m 


PRINTED 

OUTPUT 


FIG.  5.1  (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 

6 


FlC’t.  ‘>.1  (Ci)nt  Inued) 


KLDW  CHARI'  FDR  I’RCX^RAM  M/\SON 


FIG.  5 


( STOP  ^ 


. 1 (Continued)  FLOW  CHART  FOR  PROGRAM  MASON 


8 


LISTING  OF  SUBROUTINE  FLAGS 


X 

< 

z 


IT) 

CO  I 

* u 

O Q. 

lO  f* 

X ^ 

% o 

in  w 

•.  X 
o u 
^ in  a 

»o  w * 
D 

^ < a 
z j z 
-i  u.  » 

* IM 

^ ^ o 
tf>  ^ «r 
(Vin  * 

• CM  ^ 
K)  «■  » 
w c (T 
->  »o 

I > 

-j  r z 

^ » D 

^ ^ a 

I in  in 
^ <M  CM  X 

» • » flC 

“5  m o •-* 
I w m • 

j ►H  w a 

» Z V cc 
J o n 


* * « » « 


* ^ 
* < 
* 

* I- 

* t~* 

* z 

* w 
» 

« liJ 

* X 
« H 
« 

« 0. 

* D 
» 

* m 

* H 
» IlI 

» I/) 

« 

* o 
« z 
« < 
« 

* KT 

* O 
« X 
« < 
« u 

* 

« o 
* < 
« ^ 

« u. 

« 

« Ui 

« X 
* H 


« I/) 

« c 
* < 

« UJ 

« or 

« 


< z 

I Z) 

K H m 
< Z O 

o o o z 

Z < 
M UJ  H 
Z X »-» o 
X H O UJ 

in  z a: 
in  o o o 

<H  u H 

m 

Q.  • V 
z>>-  a in 

• < CL 
K a o H« 

UJ  • z a: 
in  X 3 u 
o in 
in  t-  cc  CO 

►-  U.‘  z 
UJ  ^ m 
o u.  < 

-J  o: 

UJ  ^ U t-4 
w O UJ  UJ 
u w CL  I 

m ►- 

e>  o 

< a:  X o 
-I  UJ  K z 
u.  CO  •-«  < 

X 

«iin  o 

< in  UJ 

•-*  -J  H 
j « 
IM  UJ  _l 
r X u 3 

•-I  w CD 

-J  < 


* » 
« 
« 
« 
# 
« 
* 
» 
* 
« 
* 
* 
* 
« 
« 
» 
« 
« 
« 
« 
» 
» 
« 
« 
* 
« 
« 
« 

« 

« 

«- 

» 

« 

» 

* 

« 

* 


* UJ  UJ-I  -I  c- 


* 

» 

« 

« 

* 


« 

« 

» 

» 

« 

# 

» 

» 

« 

* 

» 

« 

* 


» 

* 

* 

* 

« 

* 

« 

« 

« 

» 

« 

« 

« 

* 

« 

« 

« 

« 

« 

« 

« 


« « 
« # 
• « 
* » 
« * 
« « 
« UJ  « 
« NJ  » 


* 

« 

* 

» 


* 

* 

« 

« 

* 

* 

« 

« 

« 

* 

« 

« 

* 

» 

« 

« 

« 

« 

« 

« 

« 

« 

« 

* 

« 

» 

» 

« 

« 

« 


« 

* 

« 

* 

» 

« 

* 

* 

» 

* 

« 

« 

« 

« 

« 

« 

« 

* 

« 

« 

« 

* 

« 

« 

« 


« 

* 

« 

» 

* 

« 

« 

« 

« 

* 

« 

o « 

J « 

UJ  « 

*-«  « 
u.  » 
« 

o * 

< « 

-I  » 

u.  » 

» 

z « 

H4  * 
« 

in  # 

o * 
* 


o 

a 

z 

o 

CJ 


ID 

< 


« in  < 

« c u « 
» « u * 
« ^ « 
« u. »-  « 
« z « 

« K U'  * 

« z « 

♦ K O # 
« Z CL  * 

« M Z ft 

ft  q:  o ft 
ft  a u ft 

ft  ft 

ft  c > ft 

ft  X ft 
ft  U CL  ft 
ft  UJ  3 ft 
ft  ft 

ft  Q l-  ft 


DO  in  J=1»JMAX 
READ  l.(LlNEfr)»I=l.rMAXl) 
PRINT  2» (LINE(I) .IrlflMAXl) 
2 FORMAT (5X»80I1) 


» 

» 

* 

* 

* 

» 

« 

ft 

ft 

« 

* 

« 

* 

« 

« 

» 

ft 

ft 

* 

* 

* 

« 

» 

« 

* 

ft 

ft 

* 

« 

* 

« 

* 

* 

« 

ft 

ft 

« 

* 

« 

* 

« 

« 

« 

ft 

ft 

* 

* 

* 

(£ 

« 

* 

* 

• 

ft 

ft 

» 

« 

* 

UJ 

« 

* 

« 

* 

ft 

ft 

« 

» 

* 

o 

* 

* 

* 

» 

ft 

ft 

« 

* 

« 

a:  < 

« 

* 

« 

* 

ft 

ft 

a 

« 

* 

« 

a ^ 

* 

« 

ft 

ft 

UJ 

« 

» 

« 

< u. 

» 

* 

* 

« 

ft 

ft 

» 

* 

* 

CS 

» 

* 

o 

* 

* 

ft 

ft 

a 

* 

* 

» 

H* 

* 

* 

J 

* 

« 

ft 

ft 

a 

* 

« 

« 

OC  UJ 

* 

« 

UJ 

« 

« 

ft 

ft 

4 

» 

« 

Oc/I 

* 

O 

» 

1-4 

* 

» 

ft 

ft 

CD 

« 

« 

» 

« 

« 

U 

« 

* 

ft 

ft 

* 

* 

« 

>«  z 

» 

o 

» 

* 

ft 

ft 

a 

« 

• 

* 

ct  < 

« 

O 

« 

o 

* 

« 

ft 

ft 

o 

« 

« 

* 

< u 

* 

I- 

« 

4 

« 

« 

ft 

ft 

* 

» 

* 

o 

» 

o 

* 

J 

« 

« 

ft 

ft 

X 

* 

« 

* 

Z 1- 

« 

H 

o 

» 

u 

« 

« 

ft 

ft 

a 

« 

« 

« 

« 

o 

« 

« 

* 

ft 

ft 

4 

# 

« 

* 

o 

* 

O 

« 

z 

« 

« 

ft 

ft 

O 

« 

« 

« 

mu. 

« 

o 

» 

* 

« 

ft 

ft 

z 

« 

« 

* 

« 

« 

« 

* 

ft 

ft 

D 

* 

* 

« 

« 

« 

10 

« 

ft 

ft 

O 

CO 

* 

« 

« 

« 

« 

o 

« 

« 

ft 

ft 

CD 

S5 

« 

* 

* 

UJ 

« 

• 

« (0 

< 

« 

« 

ft 

ft 

« 

< 

« 

« 

OC  o 

* 

UJ 

« e 

-J 

« 

« 

ft 

ft 

4 

73 

hJ 

« 

S 

« 

« 

« 

• 

z 

» < 

u 

« 

ft 

ft 

ft 

U4 

« 

* 

* 

K II 

« 

o 

• 

* ^ 

« 

A 

ft 

ft 

ft 

Ul 

0 

* 

O 

« 

« 

o 

* 

UJ 

« u 

H 

» 

* 

ft 

ft 

CD 

P 

u 

« 

z 

» 

« 

Z J 

« 

• 

« 

Z 

« 

ft 

ft 

ft 

3 

* 

4 

« 

« 

Z -J 

« 

♦ >~ 

UJ 

« 

ft 

J 

ft 

ft 

H 

iJ 

rH 

« 

X 

« 

« 

4 < 

» 

* 

z 

« 

< 

ft 

J 

ft 

ft 

O 

C 

H 

« 

« 

* 

U » 

« 

►H 

w 

« H 

o 

« 

z 

ft 

4 

ft 

ft 

z 

0 

8 

« 

H 

« 

« 

« 

w 

UJ 

* z 

a 

« 

o 

ft 

ft 

ft 

z 

o 

« 

I 

« 

« 

-J  K 

* 

UJ 

z a* 

* 

« 

a 

ft 

ft 

ft 

4 

« 

o 

* 

« 

J U. 

» 

z 

\0 

* cc 

o 

* 

X 

ft 

a 

ft 

ft 

u 

1 

eo 

« 

•M 

« 

« 

< UJ 

II 

« 

* a 

o 

« 

o 

ft 

o 

ft 

O 

ft 

« 

a 

* 

» 

:k  j 

* 

J 

• 

« 

* 

o 

ft 

K 

ft 

w 

ft 

J 

CS 

CO 

« 

* 

« 

« 

• a 

« c 

>» 

« 

*4 

X 

ft 

ft 

UJ 

ft 

J 

* 

« 

q: 

* 

« 

o c:  u « 

• 

o o 

♦ I 

« 

>- 

X 

4 

ft 

a 

ft 

z 

ft 

4 

« 

o 

« 

« 

z o « 

* 

a 

z • 

« u 

0. 

« 

4 

X 

ft 

o 

ft 

ft 

% 

o 

« 

u. 

» 

« 

< u.  » 

* 

o 

< 

« UJ 

X 

* 

o 

X 

"3 

ft 

u 

ft 

ft 

w 

« 

« 

« 

X 

« 

• 

• ^ 

« 

« 

4 

•3 

ft 

ft 

II 

ft 

X 

1-^ 

O 

« 

o 

« 

* 

o »- 

« 

« o 

h- 

J 

ft 

o 

ft 

«-k 

ft 

o 

PQ 

z 

« 

< 

* 

« 

K 4 Ik 

« 

o 

lO  •. 

» z 

UJ 

* 

u. 

II 

ft 

4 

ft 

ft 

»- 

M 

« 

« 

« 

U.  ^ UJ 

* 

k<4 

« 4 

CO 

« 

II 

“3 

ft 

ft 

•3 

ft 

1- 

H 

H 

« 

Ik 

* 

1-4 

UJ  Ik  -1  * 

• 

• W 

« 

“3 

ft 

u 

ft 

ft 

o 

CO 

* 

« 

w 

« 

J 

« 

O 

o o 

* o 

z 

« 

ft 

ft 

•-< 

ft 

m 

« 

f- 

« 

UJ 

« 

1-  (t 

* 

UJ 

U 4 

« 4 

u 

* 

”3 

ft 

K 

ft 

ft 

(-4 

K 

* 

u 

* 

z 

« 

U.  UJ  o 

« 

• 

• -J 

* UJ 

X 

* 

• K 

■3 

W X 

ft 

UJ 

ft 

e 

ft 

u 

< 

« 

to 

« 

1-4 

* 

10  U. 

♦ 

u 

* a 

K 

« 

» 4 

Ul  4 

ft 

lO 

ft 

4 

ft 

« X 

o 

« 

« 

« 

* 

A H4 

» 

» 

X 

UJ 

Z X 

ft 

ft 

J 

ft 

II 

« 

1 

« 

II 

« 

1 

*-•  II 

« 1 

» 

* M 

z 

“3 

ft 

1 

ft 

u 

ft 

1 

M * 

« 

« 

A 

« 

« 

w 

w ^ 

« 

« 

^ * 

J 

ft 

ft 

ft 

o w 

T 

« 

w 

« 

“3 

« 

CM 

» 

UJ 

UJ  “3 

» o 

* 

X ^ 

ft 

ft 

ft 

CM 

CO  II 

« 

• 

» 

* 

• 

« 

z 

Z •* 

Ul 

« • 

^ li 

^ 111 

ft 

• 

ft 

lO 

ft 

• 

W M 

« 

CM 

* 

CM 

« 

1-4  »>4 

D 

♦ K) 

» 

K> 

»—  ^4 

•k 

CM  “3 

ft 

K> 

ft 

» 

ft 

lO 

K 

« 

« 

w 

* 

« 

•1 

-i 

Z 

« 

* 

K 

ft 

ft 

o 

ft 

< o 

4 

e 

* 

UJ 

« 

c 

« 

UJ 

« 

«) 

Ni4 

« iu 

« 

H 

4 O 

•-  o 

4 

ft 

UJ 

ft 

•0 

ft 

w 

z 

< 

« 

o 

« 

< 

« 

« 

w 

< 

K 

♦ o 

« 

Z 

X CM 

o 

Z CM 

"3 

ft 

o 

ft 

« 

o 

a: 

II 

« 

< 

« 

-I 

* 

< 

» 

-J  z 

» 4 

« 

a 

< 

II 

ft 

4 

ft 

o 

ft 

4 

O O «H  u. 

« 

H- 

« 

u. 

« 

* 

u 

li.  u o 

♦ K 

« 

a 

o o 

UJ 

a o 

ft 

H 

ft 

ft 

H 

u.  o •-> 

* 

iO 

* 

H4 

* 

10 

* 

H4 

1-4  Ni4 

« CO 

« 

0. 

u o 

a 

a c 

"3 

ft 

10 

ft 

u 

ft 

CO 

* 

» 

•H 

O 

K) 

c 

c 

u 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

u 

u 

u 

c 

c 

o 

c 

c 

c 

c 

u 

150 


jJ 


TABLE  5.2  - Continued 
LISTING  OF  SUBROUTINE  FLAGS 


« 

* 

« 

« 

» 

» 

* 

« 

« 

# 

* 

* 

» 

* 

* 

* 

« 

* 

» 

« 

* 

* 

» 

* 

« 

« 

« 

* 

* 

* 

* 

« 

« 

» 

« 

* 

» 

* 

* 

« 

« 

« 

* 

» 

c 

« 

iD 

* 

* 

« 

* 

» 

« 

« 

CM 

* 

< 

* 

« 

# 

« 

» 

* 

* 

« 

-1 

« 

« 

» 

» 

* 

* 

« 

o 

* 

U. 

« 

« 

« 

« 

* 

* 

K 

« 

* 

« 

# 

* 

« 

* 

f- 

* 

« 

♦- 

« 

« 

« 

« 

* 

« 

U. 

* 

O 

» 

UJ 

* 

* 

« 

« 

* 

« 

UJ 

» 

ID 

« 

1/) 

« 

« 

« 

* 

* 

« 

* 

* 

* 

O 

« 

* 

* 

« 

* 

« 

* 

z 

* 

CM 

» 

* 

» 

« 

* 

» 

« 

< 

» 

O 

« 

« 

« 

« 

« 

* 

•» 

(J 

» 

CM  O 

« 

« 

« 

* 

« 

1- 

* 

* 

« 

H 

« in 

* 

* 

« 

* 

z 

« 

• 

« 

« 

O 

* UJ 

« 

« 

« 

« 

o 

« 

UJ 

• 

« 

H O 

♦ n 

* 

« 

« 

* 

W4 

« 

z 

« 

* 

O 

* ct 

O * 

* 

* 

* 

OC 

« 

• 

* 

ll. 

« 

o 

» < 

in  ♦ 

« 

« 

« 

« 

» 

« 

O 

« o 

J « 

« 

* 

» 

z 

* 

C^ 

* 

« 

« z 

< « 

« 

* 

» 

o 

* 

CM 

« 

* 

« 

* T' 

♦ 

« 

« 

« 

« 

• 

# 

o 

* 

» o 

UJ  » 

» 

« 

« 

>- 

« 

O 

o 

* 

* 

a*  • 

# cr 

<r  * 

* 

« 

# 

cr 

* 

1^ 

z 

« 

M 

« 

lu 

« 

Ui  « 

« 

« 

« 

< 

« 

< 

* 

« 

• z 

« ^ 

I ♦ 

« 

« 

» 

o 

« 

O 

• 

« 

J 

« 

o • 

* < 

« 

* 

« 

* 

z 

« 

10 

« 

« 

lli 

♦ H 

z « 

« 

« 

« 

D 

« 

c 

« 

< 

« 

• ^ 

* O 

n * 

* 

» 

« 

O 

* 

CM 

# 

ik) 

* 

» UJ 

* 

« 

« 

« 

a. 

« 

« 

• 

« 

« 0. 

o « 

« 

nC 

« 

« 

« 

o m 

• 

« 

Z <>4 

« 

“3 

« in 

UJ  « 

« 

in 

* 

« 

J 

» 

K 

1- 

« 

c 

« 

w u > 

cr 

* 

c * 

* 

CM 

« 

* 

< 

* 

• 

_l 

« 

K M 

« 

UJ  Z CM 

« UJ 

c « 

« 

* 

vn 

« 

H4 

« 

O UJ 

• 

« 

K 

» 

Z 

^4 

* K 

< « 

» 

Ll 

« 

CM 

« 

U 

« 

o z 

« 

O ^ 

» 

J 

« < 

« 

» 

O 

« 

« 

UJ 

« 

• 

« 

cc  u 

« 

• 

« -J 

vn  ♦ 

« 

* 

• 

« 

a 

« 

« 

< 

* 

• 

CC 

* Z 

•-»  * 

« 

in 

« 

a 

« 

in 

• 

“3 

« 

a 

* 

• o o 

« CD 

« 

« 

< 

# 

o 

« 

« 

lO  ^ 

* 

o 

« 

(K  Z 

• 

« < 

« 

« 

« 

• 

« 

cr  J 

« 

CO  "0 

« 

u.  z 

« 

O < 

* K 

IT)  « 

« 

(C 

« 

« 

O J 

« 

CM 

1 

« 

c 

# 

• • 

A 

» 

CM  « 

« 

« 

« 

IL  < 

« 

k4 

* 

O h- 

« 

“3 

« Q 

» 

* 

z 

« 

■3 

* 

X 

« 

• w 

w 

# 

< K 

« 

C K) 

* Z 

U.  « 

« 

« 

* 

« 

X 

« 

e e 

C' 

* 

-J  O 

» 

# < 

o # 

« 

« 

« 

<J  o 

« 

UJ  < 

< 

« 

U.  QC 

* 

• • 

w 

« 

« 

« 

c 

« 

w 

« 

UJ  r 

» 

• J 

« 

* 

o o o 

* o 

vn  ♦ 

* Q 

* 

o 

« 

z < 

« 

Ll 

u. 

H a 

* 

UJ  UJ  < 

* z 

< * 

« 

< 

« 

< 

« 

u z 

« 

•M.  M 

« 

Ui  o 

* 

• • 

-i 

♦ M 

n « 

X 

X 

* 

« 

-J 

« 

» 

•3  - 

« 

in  u. 

* 

u. 

« u. 

(C  « 

< 

< 

« 

1 

« 

IL 

« 

1 

* 

• lO 

lO 

# 

* 

^ A 

* 

* 

z 

z 

« 

» 

» 

« 

k4  ^ 

* 

« 

« 

"3  O 

II 

« 1 

* 

“3 

o 

« 

11 

« 

o 

« 

^ K) 

to 

« 

« 

w w 

* 

» 

* 

« 

• 

« 

« 

• 

« 

ID  *0 

to 

» 

* 

UJ  Uj  -> 

* o 

» 

* 

« 

“3 

* 

CM 

« 

< 

* 

« 

z z 

» UJ 

« • 

« 

o 

0 

0 

II 

11 

« 

• 

* 

» 

• 

* 

-1  O 

o 

* 

« 

M kH  3 

* ^ 

* 

n 

II 

II 

“3 

k4 

« 

* 

« 

« 

U.  J 

-1 

* 

* 

-1  ^ 

z 

* 

» 

«ik 

» 

* 

w 

* 

* 

n U. 

u. 

« 

« 

o ^ 

« w 

« 

CM  lO  O 

o 

« 

UJ 

* 

O 

« 

UJ 

« 

« 

* 

< H 

« o 

« o 

O 

o ^ 

w lO 

K) 

• 

o 

» 

< 

* 

10 

w w 

w 

« 

* 

-f  Z 

* < 

* II 

M 

II  ^ 

« 

< 

« 

.J 

* 

< 

* 

« 

* 

u.  u.  u.  o 

# K 

» ^ 

CM  fO  Z Z X O 

O 

« 

• 

u. 

« 

H- 

« 

u.  u. 

iL 

« 

« 

N4  kl 

11  u 

* vn 

« ^ 

^ .1 

-l«J  o 

o 

« 

vn 

« 

k4 

« 

vn 

• 

11 

« 

* 

* 

o 

CM 

c 

c 

c 

u 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

u u 

stage  4.2.1  - STORE  INDICES  FOR  LEFT  ROU»'DaRY 


TABLE  5.2  - Continued 
LISTING  OF  SUBROUTINE  FLAGS 


« * 

« » 

« >-  « 
« a * 
* < « 

* o ♦ 

« z « 

* r ♦ 

* o * 

« cc  « 
« « 

* H * 

* I # 
« ID  « 

* 1-4  * 

* or  « 

* » 

» a » 
« c « 
« u.  » 
« # 

# U)  * 
« UJ  « 

* o * 

♦ IX  ♦ 

« o « 
« z * 
« « 

« » 

» Ui  * 

« a « 

* c * 

# I-  * 

♦ 1/1  ♦ 

« # 

« I # 


« 

ft 

* 

ft 

ft 

CM 

ft 

ft 

ft 

ft 

o 

in 

« 

ft 

o 

ft 

in 

ft 

w O 

ft 

ft 

w 

ft 

o 

ft 

in 

II  II 

* 

• ft 

lO 

ft 

• 

ft 

^ II  II 

ft 

• 

ft 

O 

ft 

• 

ft 

w 

^ II  II 

« 

(\J  ft 

w 

ft 

CM 

ft 

I ^ « 

ft 

CM 

ft 

< 

ft 

lO 

ft 

o 

X ^ — 

* 

• ft 

O o 

ft 

• 

ft 

«J  CM  CM 

ft 

• 

ft 

-1  o 

ft 

• 

ft 

•1 

^ K)  ro  UJ 

* 

^ ft 

-J  lO 

ft 

ft 

II  ^ ^ ^ 

ft 

ft 

U.  K) 

ft 

d- 

ft 

u. 

w M ^ ^ D 

■f 

* » 

ft 

ft 

u. 

ft 

ft 

M ft  * » 

ft 

ft 

*-« 

ft 

ft 

ft  » 2 

ft 

UI  ft 

o 

ft 

UJ 

ft 

CM  CM  CM  CM 

ft  UJ 

ft 

o 

ft 

Ui 

ft 

w> 

m lo  10  lo  1-4 

w w 

ft 

O ft 

ft 

(D 

ft 

w ^ w 

ft 

O 

ft 

W K 

ft 

o 

ft 

K ^ 

II 

►4  n 

ft 

< ft 

ft 

< 

ft 

^ II  *-4  T 

ft 

< 

ft 

ft 

< 

ft 

u. 

II  «-•  ->  2 ^ 

X I 

ft 

K ft 

u.  o 

ft 

ft 

X CM  I I 

ft 

H 

ft 

u.  o 

ft 

ft 

m z X X o M 

>K. 

ft 

l/l  ft 

1-4  ID 

ft 

l/>  ft 

^ ^ ^ ^ 

ft 

i/l 

ft 

M o 

ft 

l/> 

ft 

^ j -jj  u 

u u u u u 


U O (J  o u 


u o o u u 


U U <J  u u 


stage  4.4.0  - PRINT  TaBLP  OF  INDICES  OF  SPECIAL  CELLS 


LISTING  OF  SUBROUTINE  FLAGS 

K3  ,6T.  K ) K=K3 


'I 


Q. 

O 


1 


« 

« 

« 

« 

« 

* 

« 

» 

* 

“5 

H 

* H 

« 

« 

« 

« 

« 

* 

« 

* 

% 

U. 

» O 

* 

* 

* 

* 

* 

* 

« 

• 

»0 

Ui 

» KZ 

» 

» 

» 

« 

« 

« 

« 

« 

-J 

« UJ 

« 

« 

* 

* 

* 

* 

* 

* 

”5 

« in  in 

* 

X 

* 

* 

« 

* 

* 

« 

* 

I 

« J 

« 

4 

« 

« 

« 

« 

« 

* 

« 

-1 

* O-J 

« 

z 

* 

* 

>•  ♦ 

* 

• 

« 

* Z UJ 

* 

-) 

« 

* 

X * 

» 

* 

* 

* 

A 

* < u 

« 

II 

* 

* 

o « 

» 

« 

* 

« 

“5 

« z 

* 

-5 

« 

« 

» 

* 

« 

» 

* 

X ^ 

* h-  z 

« 

« 

* 

in  * 

* 

» 

« 

« 

fO 

o »-* 

* < o o 

« 

X 

« 

« 

>-  * 

» 

« 

« 

« 

* Z Z X 

* 

K 

« 

» 

4 » 

« 

« 

* 

« 

•-4 

q:  o 

« X k 

* 

1-4 

* 

* 

B * 

* 

« 

* 

* 

X 

» 1-4 

» UlUJ 

« 

:» 

» 

» 

-1  « 

« 

« 

« 

• 

» » 

♦ H X in 

» 

« 

* 

4 « 

# in 

« 

* 

« 

% 

X ^ 

• Ui  < < 

* 

X 

« 

* 

« 

« 

19 

* 

« 

* 

A 

O M 

* O 

* 

o 

* 

« 

X * 

« 

4 

• 

« 

« 

“> 

^ » 

* x m 

» 

X 

« 

» 

X 

o « 

* -1 

« 

* 

* 

% 

V ^0 

# -^u 

« 

« 

« 

4 

* 

* k 

« 

* 

« 

<M 

* M 

« O H«  UJ 

« 

19 

» 

« 

z o * 

90 

* 

* 

« 

« 

w 

* X > 

« 

z 

« 

» 

•-4  UJ  » 

« 

UJ  * 

* 

* 

“5 

» so* 

« 

o 

« 

« 

II  o « 

o 

« K 

• 

« 

X 

o 

« O T> 

* 

J 

* 

« 

M o # 

H 

* *-4 

» 

« 

« 

Uj 

» X c k ft 

* 

4 

« 

« 

c # 

* 

4 

« 

» 

« 

K >0 

» UJ  Z X o 

« 

« 

« 

X -1  » 

O 

* x 

« 

* 

« 

U •-» 

» NJ  < 

« 

in 

« 

« 

K 

k « 

19 

« o 

« 

o 

« 

« 

k.'  c\i 

* o in 

* 

UJ 

* 

« 

* 

« 

X 

« 

in 

* 

* 

u.  v 

*inoin>- 

» 

o 

« 

« 

» in  « 

A 

» X 

« 

« 

« 

c\i 

ti. 

« M UJ  -1  4 

* 

X 

* 

• 

V « 

* 

X 

* 

• 

• 

* 

• 

%•» 

< ^ 

« 0 4 2 

» 

K 

« 

« 

Z 4 « 

m 

« 

4 

« 

X 

X 

« 

« 

« -1  o ^ 

« 

« 

« 

z 

» * 

* 

« 

o 

o 

« 

« 

X 

in  X 

« UJ  O 4 

« 

H 

* 

« 

• 

« 

K 

« 

• 

• 

* 

in 

« 

-1  in 

♦ > -1  • 

« 

D 

« 

« 

-1  4 « 

90  UJ 

« 

UJ 

« 

« 

J 

« 

% 

j • 

« UJ  k >-  X 

« 

X 

« 

O 

« 

z 

« in 

« 

« 

J 

« 

4 • 

« J -i  o 

« 

« 

« 

u -i  * 

o • 

« 

• 

“5 

• 

k 

« 

“5 

* UJ  o 

« 

in 

« 

« 

-J  « 

K 

« 

« 

f 

« 

u 

« 

* X X z o 

« 

J 

» 

« 

Z UJ  !» 

« 

« 

« 

* 

« UJ  4 t-i  UJ 

* 

-1 

» 

« 

•-«  O « 

o 

« 

>- 

« 

» 

» 

k 

« 

in 

« H o o 

* 

UJ 

« 

« 

« 

19  O 

* 

X 

« 

X 

X 

« 

O 

« 

“) 

-j  •-• 

« 4 in  a c 

« 

c 

• 

« 

in  o « 

* 

« 

c 

« 

< 

4 

« 

# 

X 

-j  • 

* » J oo 

« 

« 

« 

-J 

« 

— X 

« 

« 

z 

z 

• 

K 

« 

UJ  w 

* J U .1 

« 

-J 

« 

♦ -J 

• « 

4 

« in 

« 

♦ m 

• 

U 90 

* e UJ  u k 

J 

* 

« 

UJ  H * 

• Z 

« 

« 

w 

« 

UJ  « 

•n 

« Z O 4 

« 

4 

« 

« 

U 19  « 

O ^ 

« 

« 

e 

e 

* 

X 

• 

-1  X 

« 1-4  in 

» 

« 

« 

• « 

w 

* 

-J  « 

4 

4 

» 

* 

II 

< ^ 

♦ z I in  X 

« 

« 

« 

X 

» 

• c 

« J 

« 

lO  _J 

J 

* 

X 

« 

M * 

* D U 19  4 

« 

U 

« 

* o o « 

H-  4 

« 

UJ 

* 

CM  k 

k 

« 

u 

« 

w 

<J  • 

« in  *-4  4 3 

* 

UJ 

* 

« 

UJ 

» 

O J 

* 

u 

» 

« 

k 

« 

A 

M 

UJ  z 

« in  X -1  ^ 

« 

X 

« 

« 

X k * 

• k 

« 

• 

11 

11 

II 

« 

X 

« 

z 

a • 

» 4 S k 4 

* 

o 

« 

z 

« 

u 

»-4  « 

1-4 

* 

» 

A 

« 

u 

* 

•1 

in  • 

« 

« 

« 

X 

« 

« 

« 

• 

-> 

« 

» 

• X 

« I 

» 

* 

4 

« 

» 

“>  lO 

* 

« 

1 

« 

« 

• 

N*  •>  m 

« 

« 

« 

Z 

« 

* 

% * 

* 

• 

« 

-> 

« 

« 

K 

N.  X V 

« o 

« 

o 

« 

« 

* 

X lO 

* 

« 

«k 

« 

CM 

t 

O 

w 

^ flO  * 

« • 

» 

• 

* 

» 

» 

• 

• 

4 90 

« 

• 

• 

X 

X 

X 

« 

• 

« 

• o 

• 

I % • 

* o 

« 

« 

(M 

« 

« 

Z w 

• 

« 

4 

4 

4 

» 

« 

o 

A 

^ N X 

« • 

« 

• 

* 

II 

« 

• 

« 

•-4  O 

« 

• 

« 

Z 

Z 

Z 

• 

• 

« 

lO  ^ 

»n.  5^ 

w w o 

« in 

« 

in 

« 

"> 

« 

in 

* 

^ -J 

« 

in 

« 

M4 

* 

IT 

« 

H 1-  H 

* 

« 

« 

* 

« 

O k 

« 

« 

w 

» 

« 

K 

1- 

•M  < < 

* UJ 

« 

UJ 

« 

O 

UJ 

* 

« 

UJ 

* 

C 

c 

e 

« 

k 

« 

^ z 

z 

II 

z Z 

« o 

» 

19 

« 

« 

(9 

* 

w w 

« 

19 

* 

4 

4 

4 

« 

(9  « 

•-« 

cr  Qc 

» 4 

* 

4 

» 

« 

4 

* 

« 

4 

« 

J 

J 

« 

4 

* 

u.  a 

cr 

o o 

« K 

* 

K 

* 

o 

H 

* 

k k 

« 

K 

« 

k k 

k 

* 

H 

« 

0. 

CL 

<-• 

U.  k 

« in 

• 

in 

« 

o 

« 

in 

« 

« 

in 

« 

N4 

« 

in  * 

* « « 

o ^ 


O lO 

o u u u u o u u u u u o u uuuuuu  u u u o u uuuuu 


153 


ltiXVMl»e=l  U*i  00  9C 


LISTING  OF  SUBROUTINE  FLAGS 


ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft  -J 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft  UJ  <c 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft  ^ »-t 

ft 

ft 

ft 

ft 

ft 

ft  u 

ft 

* < u 

ft 

ft 

ft 

ft 

>- 

ft 

ft  ^ 

ft 

ft  O UJ 

ft 

ft 

ft 

ft 

or 

ft 

ft  < 

ft 

ft  H4  Q, 

ft 

ft 

ft 

ft 

o 

ft 

ft  s 

ft 

ft  o in 

ft 

ft  z 

ft 

ft 

ft 

ft 

ft 

ft  z 

ft 

ft  N4 

ft 

ft 

in 

ft 

ft  K 

ft 

ft  *-•  K 

ft 

ft  K 

ft 

ft 

>• 

ft 

ft  z 

ft 

ft  D 

ft 

ft  X 

ft 

ft 

< 

ft 

ft  o 

ft 

ft  o 

ft 

ft 

ft 

ft 

ft 

ft  ^4 

ft 

* O I 

ft 

ft  -J 

ft 

ft 

ft 

ft  q: 

ft 

ft  H »- 

ft 

ft  J 

ft 

ft 

< 

ft 

ft 

ft 

ft  1-4 

ft 

ft  UJ 

ft 

ft 

ft 

ft  tr 

ft 

ft  in 

ft 

ft  o 

ft 

ft 

or 

ft 

ft  o 

ft 

ft  -1 

ft 

ft 

ft 

ft 

o 

ft 

ft 

ft 

* -ii/i 

ft 

ft  z 

in  ft 

ft 

ft 

ft  a 

ft 

« UJ  -J 

ft 

ft  1*4 

< 

ft 

ft 

o 

ft 

ft  o 

ft 

* U-l 

ft 

ft 

ft 

ft 

UJ 

ft 

ft  H 

ft 

ft  UJ 

ft 

ft  o 

CD 

ft 

ft 

o 

ft 

ft 

ft 

ft  *-  u 

ft 

ft  z 

ft 

ft 

o 

ft 

ft  Z 

ft 

ft  z 

ft 

ft  < UJ 

ft 

ft 

o 

ft 

ft  o 

ft 

« u z 

ft 

ft  -1  > 

ft 

in 

ft 

-1 

ft 

ft 

ft 

ft  U M 

ft 

ft 

O 

ft 

ft 

IL 

ft 

ft  >> 

ft 

ft  < 

ft 

ft  > 

jr 

ft 

ft 

ft 

ft  q: 

ft 

O O 

« "JUl 

ft 

ft  DC 

UJ 

ft 

o 

ft 

w 

ft 

ft  o 

ft 

►-  K 

ft  o 

ft 

ft  Q 

a 

ft 

»- 

ft 

>- 

ft 

ft  z 

ft 

ft  < M 

ft 

ft 

ft 

ft 

< 

ft 

ft  r) 

ft 

O O 

ft  cr 

ft 

ft  U) 

c 

ft 

o 

ft 

ft 

ft  o 

ft 

o o 

ft  o 

ft 

O' 

ft  H 

z 

ft 

o 

ft 

-J 

ft 

o 

ft  (E 

ft 

ft  ZUJ 

ft 

cc 

ft  < 

< 

ft 

ft 

< 

ft 

ft 

ft 

ft  <> 

ft 

o 

CM 

ft  U 

ft 

ft 

ft 

ft  -1 

ft 

ft  c 

ft 

K 

a- 

O Oi^ 

ft  ►- 

m ft 

c 

ft 

-1 

ft 

o 

ft  < 

ft 

fO  lO 

ft  ^ z 
ft  -i  w 

ft 

in  yc 

s 

ft  o 

UJ 

ft 

lO 

in 

ft 

ft 

ft  »-4 

ft 

ft 

O 

0 

ft  z 

ft 

ir 

ft 

ht 

ft 

c 

ft  o 

ft 

• • h- 

ft  iLi  Dr 

ft 

e 

0 0 

• or 

ft  ^ 

cr 

ft 

c* 

• 

ir 

• 

• 

ft 

u 

ft 

s o 

ft  u 

ft 

o c in 

ft  o 

ft 

(T  q: 

d:  o 

ft 

c 

ft 

IT  UJ 

a 

to  (t 

d: 

ft 

ft 

o 

ft  0. 

ft 

UJ  UJ  (M 

ft  o 

ft 

o o 

o • 

ft  o 

z 

ft 

z 

CM  O 

o 

ft 

o 

ft 

o 

ft  in 

ft 

• • 

ft  z z 

ft 

• • 

• 

ft  H 

ft 

• 

• 

0 

• 

• 

ft 

ft 

ft 

ft 

• 

ft  ^ « 

ft 

<r 

ft 

o 

ft 

c 

c 

• 

ft 

• 

ft 

ft  a 

ft 

— a 

ft  in 

ft 

O' 

^ *4 

ft  in 

a 

ft 

z 

z 

cr 

yC 

ft 

ft 

o ^ 

ft  o 

ft 

o in 

ft  o o u> 

ft 

“3  “3 

o4  ft 

ft  o 

ft 

< 

-i^ 

< O "3 

o4 

in 

ft 

o 

ft 

O 9 

ft  u. 

ft 

*3  “5  • <M 

ft  < Z ^4 

ft 

* » 

• *3 

ft  < -1 

ft 

• 

“3 

• 

• 

* 

1 

CM 

ft 

• 

ft 

ft 

ft 

• * 1 

ft  ^ < a 

ft 

0 

•3  • 

ft  J 

< 

ft 

"3 

1 

ft 

ft 

ft  ^ 

ft 

^ ^ ^ ^ 

ft  U.  -1  o 

ft 

o 

1 ♦ 

ft  u 

ft 

»i4 

— > 

1 

ft 

Q 

ft 

• 

ft  u 

ft 

W W -)  “5 

ft  z 

ft 

UJ 

1-4  M 

ft 

u 

ft 

”3 

-3  *3 

N4 

“3 

ft 

ft 

• o 

ft  UJ 

ft 

o O * * 

ft  H >-  D 

ft 

• 

w w 

w w 

ft  K 

UJ 

ft 

» 

e 

«-» 

w 

ft 

IL 

ft 

O UJ 

ft  z 

ft 

C < »H  M 

ft  UJ  a:  c 

ft 

o o 

ID  e 

ft  UJ  0. 

ft 

< *-4 

o 

e 

N« 

ft 

ft 

• 

ft  u 

ft 

w w 

ft  in  o CE  ft 

< < 

< < 

ft  in 

in 

ft 

w 

J 

w 

< 

0S 

w 

ft 

ft 

0 

ft 

ft 

U.  U.  lO  o 

ft 

ft 

-> 

-1  -J 

^ -1 

ft 

ft 

<9  U.  O 

o 

-1 

o 

ft 

1 

ft 

ft  1 

ft 

•-«  < < 

ft  1 

ft 

* 

u.  u. 

U.  li. 

ft  1 

ft 

< 

•>4 

< 

< 

u. 

U 

< 

ft 

ft 

e>  -J 

ft 

ft 

• * J J 

ft 

ft 

•H 

H4 

ft 

ft 

* 

J 

-1 

w 

1-4 

ft 

ft 

• * 

ft  CNi 

ft 

m 10  u u. 

ft  lO 

ft 

1 

II  II 

II  II 

ft  ^ 

ft 

u. 

lO  u 

u. 

II 

II 

u. 

ft 

• 

ft 

ft  • 

ft 

• » 1-4  »-4 

ft  • 

ft 

P>4 

ft  • 

ft 

h4 

% 

0^ 

0^ 

A 

ft 

C\J 

ft 

^ w 

ft  CM 

ft 

lO  O 11  II 

ft  CM 

ft 

w 

•3  "3 

o4  «4 

ft  CM 

ft 

II 

o 

11 

II 

“3 

II 

ft 

• 

ft 

■5  O 

ft  • 

ft 

K)  »0  ^ 

ft  • 

ft 

o 

* » 

1 ft 

ft  • 

ft 

lO 

-■4 

* 

1 

ft 

ft 

• < 

ft  ^ 

ft 

W ^ “3 

ft  04 

ft 

< 

•4  04 

“3  “3 

ft  04 

ft 

"3 

w 

-3 

•3 

v4 

"3 

-3 

ft 

• 

ft 

«-4  J 

ft  • 

ft 

o O ••  • 

ft  • 

ft 

t ft 

• » o 

ft  • 

ft 

o 

«k 

% 

1 

* 

«,  UJ 

ft 

IT 

ft 

W u. 

ft  IT 

ft 

_|  J 1-4  I-. 

ft  in 

ft 

u. 

H4  M 

M M ^ 

ft  in 

ft 

_1 

0^ 

D 

ft 

ft 

o 

ft 

ft 

u.  u.  ^ 

ft 

ft 

»<4 

w w 

w w 

ft 

ft 

w 

u 

w 

w 

w 

^ Z 

ft 

Li 

ft 

ft  Ui 

ft 

(9  19 

ft  Ui 

ft 

e o 

e c o 

ft  Ui 

ft 

e 

ID 

o 

o 

C 

o »>* 

ft 

O 

ft 

ft  e 

ft 

w W < 

ft  o 

ft 

< ^ 

< < ft- 

ft  o 

ft 

< 

w 

< 

< 

< 

< 

< H- 

ft 

< 

ft 

ft  < 

ft 

ft  < 

ft 

^ -1 

-J  -1 

ft  < 

ft 

J 

_J 

J Z 

ft 

K 

ft 

IL  u. 

ft  K 

ft 

U.  li.  U.  U. 

ft  ►- 

ft 

u.  u.  u. 

U.  IL  O 

ft 

ft 

u.  u.  u 

u. 

w 

u. 

u.  o 

ft 

in 

ft 

ft  in 

ft 

M M 

ft  in 

ft 

N4 

M ^4 

l-l  1-4  O 

ft  in 

ft 

N4 

1-4 

00 

00 

1-4  O 

♦4 

CM 

lO 

in 

o 

o 

O 

u u 

u 

c 

c 

c 

c 

c 

c 

c 

c 

c 

U u 

c 

c 

c 

u o 

u 

154 


LISTING  OF  SUBROUTINE  FI.AGS 


» 

« 

« » 

» 

« 

» 

« 

» 

* 

« * 

« 

« 

* 

* 

« 

* 

* « 

* 

« 

* 

* 

* 

» 

* » 

« 

» 

* 

* 

* 

* 

« » 

« 

« 

* 

« 

« 

« 

* « 

* 

« 

« 

« 

in 

« 

* 

« * 

» 

« 

* 

« 

o 

» 

* 

« >-  « 

« 

« 

« 

« 

« 

« 

ec  * 

« 

« 

* 

« 

o 

* 

« 

« o * 

« 

« 

# X 

« 

X 

« 

« 

» « 

« 

» 

« -1 

« 

■» 

« 

♦ \n  ♦ 

» 

* 

«K 

» 

o 

* 

* 

« >•  « 

« 

« 

« z 

« 

o 

« 

• 

« < * 

« 

* 

* UJ 

« 

« 

« 

* 9 « 

« 

» 

• z 

» 

A 

« 

* 

« j « 

« 

« 

* < 

« 

* 

« 

« « « 

* 

« 

* z 

« 

fO 

» 

« 

« * 

* 

* 

* cr 

* 

o 

» 

« 

« a:  « 

* 

« 

« UJ 

« 

in 

« X 

« 

« o » 

* 

« 

« CL 

« 

« < 

« 

« * 

o 

» 

« 

* 

« 

• 

« s 

« 

« o * 

in 

* 

« 

o 

* 

* 

UI  o 

♦ “> 

« 

« Ui « 

» 

» 

in  ^ 

» Z 

» 

Z X 

* II 

« 

* o * 

o 

* 

« 

» M 

* 

• 

# T 

* 

« o « 

K 

* 

« 

• • 

« 

« 

o 

* 

« 

• o * 

« 

« 

ct  o: 

* IT 

* 

X 

« z 

* 

« u « 

O 

* 

« 

o o 

« J 

« 

-> 

♦ H 

* 

* u * 

e>  o 

« 

« 

• • 

* UJ 

* 

• o 

« 

« 

* * 

^ m 

« 

« 

« > 

« 

o 

« S 

« 

« m * 

« 

« 

« UJ 

« 

w 

* 

* 

* >*  * 

• • 

• 

* 

« 

X VH 

» -J 

« 

o 

« X 

« 

« < « 

fo  a.  a: 

a: 

« 

« 

< z 

« 

« 

< 

« o 

« 

* X « 

o o o 

« X 

« 

o 

Z X 

« cc 

« 

o 

-1  CM 

* 0: 

« 

« _i  « 

o « • • 

• 

< 

* 

o < 

» Ui 

• 

« 

u. 

« 

« 

* < « 

in  UJ 

* z 

« 

••  z 

« K 

o 

# 

o 

« O 

« 

« « 

z ^ 

* “5 

« 

o 

^ “5 

« < o 

• 

X 

c 

« z 

« 

O • •-*  X 

X 

« 

« 

•- 

z • 

« 3r 

c 

« 

• UJ 

« o 

« 

» j « 

K 1 < 

< 

« 

X 

« 

X X 

« 

« 

o 

o • 

« u 

« 

« UJ  * 

^ X Z Z 

« 

< 

« 

o 

< < 

» O 

1 

« 

o 

z 

« < 

» 

« u » 

O <-5  0 

« 

z 

» 

o 

z z 

« Z 

« 

< 

« 

« 

« * 

OX  z * 

« 

« 

•*4  M 

« < o 

« 

• ^ 

« tr 

« 

« c • 

< o ^ 

« 

« 

• 

w w 

« 

X 

« 

o 

* -i 

« 

« « 

^Z  » 1 

« -J 

« 

o 

o o 

* in 

« 

lO 

CM  • 

« ^ 

« 

« • « 

O •N 

♦ -J 

« 

< < 

« z in 

« 

m 

c w 

« Ui 

« 

« 1-  « 

• ^ w w 

*>» 

« 

U) 

« 

• 

u J 

* X 

-I  « 

CM 

in  1 

» u 

« 

* <9  « 

O I-I  o o 

o 

« 

o 

« 

u u. 

« CL  -1 

« 

« 

* 

« • « 

< < 

< 

« 

« 

o »-• 

« UJ  UJ  « 

• 

m w 

« X 

» 

« « 

• O J -J 

« 

X 

« 

• 

IT  M II 

« o o 

« 

UJ 

UJ  o 

« u 

• 

* o « 

>-  < u.  u. 

u. 

* o 

« 

CM  ^ ^ 

* 

« 

z 

z < 

« ll.' 

« 

« « 

O -J  ►-• 

« 

UJ 

« 

II  X ^ 

« X 

X 

« 

• 

• _l 

« z 

» u.  » 

• U.  fO  II  M 

II 

♦ z 

« 

X 

^ < z 

« UJ  a: 

* 

u. 

* o 

« 

T 

CM 

* u 

« 

< 

X z X 

* in  o 

« 

« 

* 

K 

« « 

« It  W X 

X 

« 

« 

z 

< o < 

* 

« 

X X -5 

-5  ^ 

* 1 

* 

< 

* 1 « 

X K5  1 < 

< 

« 

1 

« 

■5 

z ^ z 

« 1 

« 

< < » 

• 

• 

% 10 

« 

« 

Z 

« « 

< •^  X X Z 

z 

« 

* 

-5*^  O 

« 

* 

Z Z *-4 

o 

o 

M * 

« o 

« 

« « 

z o < < o 

o 

« 

c 

« 

X 

z •> 

« c 

« 

c 

o 

^ ri 

« • 

« 

« • « 

O lO  z z • 

• 

• 

« 

< X X X 

• • 

• 

* » o o 

o 

o m 

« CM 

« 

CM 

« CM  * 

• ^ O -5  W 

« 

K) 

« 

z 

< < < 

* o 

» 

^ ^ < 

w 

< 

« • 

« 

II 

« • « 

M O * 1 

UI 

« 

• 

« 

«-i  z z z 

* • 

« 

II  II  j 

1 

1 

O J o 

« IT 

* 

* in  # 

w J M M ^ 

•^2 

« 

in 

* 

w 

M »i>4  M 

« o 

« 

->  »-•  u. 

II 

II 

X U.  J 

« 

« 

« « 

o U.  w ^ W 

^ z 

« 

« 

o 

^ w 

« 

« 

u. 

» Ui 

« 

c 

* U)  • 

o o o 

o ►- 

• 

UJ 

« 

o o o 

« UJ 

« 

o c 

o o o 

* O 

« 

in 

« o « 

w «...<<  < 

< K 

« 

o 

• 

< < < 

« o 

* 

X X 

X 

w «■» 

* < 

« 

« < * 

-IJ  -J  J z 

« 

< 

« 

^ J -1 

« < 

• 

* ^ 

« 

o 

* H * 

u.  u.  u.  u.  u. 

U.  O 

« 

K 

« 

u.  u.  u.  u. 

♦ X 

« 

o o u. 

o u.  u. 

« iO 

• 

o 

« in  • 

M o 

« 

in 

« 

M M M 

• in 

« 

O O N4  O 

z o ^ 

UUU<JU  UUUO<J 


u u u u o 


u o o u u u 


LISTING  OF  SUBROUTINE  FLAGS 


o 

< 

•J 

u 


m o 


FIG.  5.2(Continued)  FLOW  CHART  FOR  SUBROUTINE  FLAGS 

158 


W 


STAGE 

4.3.0 


FIG.  5.2  (Continued)  FLOW  CHART  FOR  SUBROUTINE  FLAGS 


STAGE 
5. 1.1.1 


FIG.  5.2  (Continued)  FLOW  CHART  FOR  SUBROUTINE  FLAGS 


160 


Ln  cr. 


i 

1 


TAGE 

.1.2.3 


FIG.  5.2  (Continued)  FLOW  CHART  FOR  SUBROUTINE  FLAGS 


161 


n 


FIG.  5 


TOP  \ NC 


.2  (Continued)  FLOW  CHART  FOR  SUBROUTINE  FLAGS 


TABLE  5^3 

LISTING  OF  SUBROUTINE  MOD 


« 

« 

« 

« 

« 

« 

* 

* 

ft 

* 

* 

* 

* 

* 

« 

ft 

X 

* 

» 

« 

O 

* 

« 

* 

ft 

< 

» 

» 

« 

cr 

« 

» 

« 

ft 

z 

« 

« 

» 

* 

* 

* 

ft 

1-4 

« 

li. 

* 

* 

LJ 

« 

« 

« 

ft 

* 

o 

* 

* 

X 

« 

* 

* 

ft 

« 

« 

« 

1- 

« 

* 

* 

ft 

in 

« 

CL 

* 

* 

« 

* 

* 

ft 

<M  I 

* 

D 

* 

« 

z 

« 

* 

>- 

« 

ft 

• u 

* 

« 

» 

•■4 

* 

* 

cc 

* 

ft 

O 0. 

« 

O 

« 

* 

« 

» 

O 

« 

ft 

lO  t-t 

* 

z 

« 

« 

UJ 

« 

* 

« 

ft 

« 

»-4 

« 

* 

in 

« 

* 

in 

» 

ft 

I ^ 

« 

>- 

» 

« 

O X 

» 

» 

>- 

* 

ft 

• o 

» 

cr 

» 

» 

I < 

* 

« 

< 

« 

ft 

in 

» 

o 

« 

* 

»-  z 

* 

» 

* 

ft 

in  w 

« 

* 

« 

^4 

« 

« 

» 

ft 

CNJ  K 

» 

o 

« 

« 

K II 

* 

* 

< 

» 

ft 

* I 

« 

z 

« 

» 

3 »-• 

« 

« 

« 

ft 

O u 

» 

< 

» 

» 

ffi 

« 

« 

cr 

* 

ft 

to  CL 

* 

* 

« 

I 

* 

« 

o 

* 

ft 

^ * 

« 

o 

* 

«- 

in  h- 

» 

* 

» 

ft 

O D 

* 

z 

* 

« 

* 

« 

o 

» 

O 

ft 

< a 

# 

« 

* 

-1 » 

« 

# 

UJ 

* 

O 

ft 

-i  r 

« 

c 

« 

« 

Ui 

« 

# 

c. 

« 

>c 

ft 

u.  » 

« 

o 

« 

* 

u z 

» 

* 

o 

« 

ft 

« 

o 

« 

« 

z 

« 

« 

o 

« 

o 

ft 

» o 

* 

* 

« 

-1  3 

# 

« 

u 

« 

K 

ft 

in 

« 

u. 

« 

« 

-1  J 

« 

« 

u. 

« 

ft 

in  « 

* 

* 

« 

< o 

« 

« 

« 

o 

•li- 

OJ it 

« 

U1 

» 

* 

o 

« 

« 

in 

« 

e 

ft 

» » 

« 

I 

« 

» 

in 

« 

« 

X 

* 

ft 

o in 

* 

H 

« 

« 

X Ui 

* 

« 

< 

« 

ft 

Q. 

to 

* 

« 

« 

a X 

# 

« 

« 

ft 

O 

> 

« 

cc 

* 

« 

UJ  K 

« 

« 

* 

ft 

c r 

* 

c 

• 

« 

« 

I 

« 

* 

< 

* 

« 

« 

u.  in 

« 

» 

u o 

# 

« 

« 

• 

ft 

KJ 

0. 

« 

1- 

« 

« 

z 

» 

» 

in 

« 

o 

ft 

» 

in  • 

# 

in 

< 

« 

o < 

« 

« 

« 

UJ 

ft 

C 

CJ  D 

« 

X -J 

« 

« 

o 

* 

« 

« 

• 

ft 

o 

••  cc 

« 

o b. 

« 

« 

X 

* 

« 

« 

ft 

z 

O 

* 

u 

» 

* 

< 

« 

« 

« 

ft 

a 

to  • 

« 

X u 

« 

» 

o z 

« 

* 

LJ 

» 

«-» 

ft 

a. 

^ cc 

* 

o 

< 

« 

* 

1-  3 

« 

« 

U 

« 

3 

ft 

>-  cr 

* 

O 

• 

» 

» 

« 

« 

ft 

o n 

» 

UJ 

« 

# 

CL  M 

* 

« 

u. 

# 

ft 

UJ 

» » 

* 

z 

K 

« 

# 

O 

« 

» 

1^4 

* 

w 

ft 

z 

CD  ^ 

« 

« 

« 

O 3 

« 

« 

« 

O 

ft 

in  “D  IT 

» 

K 

Ul 

« 

» 

# 

« 

X 

« 

< 

ft 

K 

<\i  » (\l 

« 

3 I 

» 

« 

I 

* 

« 

o 

« 

J 

ft 

« 

O 

1- 

« 

* 

LJ  K 

« 

« 

Ui 

* 

u. 

ft 

c 

o K O 

« 

(C 

* 

« 

I 

« 

X 

« 

I ♦ 

*•4 

ft 

o 

K)  j m 's 

* 

c z 

« 

« 

K :s 

« 

3 

X 

o 

ft 

ft 

z 

U ^ ^ 

» 

3 

* 

< 

* 

« 

» 

» 

ft 

ft 

K C N • 

« 

in 

« 

•- 

* 

1 

« 

CD 

» 

1 

ft 

* 

ft 

UJ 

O • V 

« 

in 

* 

» 

« 

3 

CM 

» 

ft 

ft 

z 

V X z cc 

» 

in  j 

« 

ill 

« 

o 

« 

II 

II 

« 

ft 

(Vi 

ft 

< < O H- 

* 

»-4 

-1 

* 

N ♦ 

O 

♦ 

• 

« 

3 

H4 

* 

• 

ft 

w 

ft 

h- 

V z 

« 

Z UJ 

» 

to  (C 

X 

X 1 

1 

II 

« 

•4 

* 

« 

ft 

o 

ft 

o 

z ->  in  V 

« 

K O 

« 

< 

« X 

X 

in 

« 

« 

O 

o 

1 

•f 

1 

♦ 

* 

ft 

-} 

ft 

o 

o r 

« 

« 

If  *->  z 

z 

3 

< 

# 

UJ 

« 

O 

o 

H4 

3 

3 

« 

Ui 

ft 

u 

ft 

ct 

Z LJ  < 

* 

« 

* 

« 

X H 

-5  II 

II 

»- 

« 

e> 

« 

>0 

vO 

II 

11 

II 

It 

» 

o 

ft 

ft 

CD 

Z z H 

in  cc 

II 

M ^ 

* 

< 

* 

w 

* 

< 

ft 

w 

ft 

D 

O I-I  < 

< H 

X 

X X 

X 

UJ 

* 

K 

* 

o 

O Z (L 

Z 

a 

# 

ft 

u. 

ft 

1/1 

u o o 

z 

»i4 

3 

3 

o 

* 

in 

* 

o 

O 

3 3 

» 

in  * 

1-4 

ft 

« 

cr 

lO 

cr 

o 

ec 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

u 

c 

c 

c 

c 

c 

KJ 

u 

163 

L J 


STAGE  1.2  - CHECK  IF  CELL  IS  DRY  - IF  SO  JUMP  TO  CHECK  IF 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


I 


« 

* 

« 

o 

« 

* 

« 

* 

UJ 

« 

« 

* 

« 

o ^ 

« 

* 

« 

« 

O J 

» 

* 

o 

« 

* 

O UJ 

* 

* 

* 

* 

-i  u 

« 

^ 40 

* 

* 

« 

u. 

# 

O 40 

« 

* 

« 

cr 

« 

40  ^ 

* 

o 

* 

* 

J UJ 

« 

• • 

* 

H 

» 

« 

^ o 

c o 

« 

* 

* 

UJ  HI 

z z 

» 

O 

« 

v/> 

* 

U 1/) 

* 

< < 

« 

o 

« 

« 

z 

« 

« • 

« 

« 

u 

« 

a:  o 

* 

A M 

« 

A 

UJ 

* 

UJ  u 

“3  "3 

* 

* 

X 

* 

o 

« 

CO 

* 

u 

* 

HI  < 

« 

M 1-4 

« 

« 

« 

(/)  H 

« 

* 

CM 

« 

* 

Z -J  V 

o o 

* 

» 

< 

* 

O UJ  J 

« 

< < 

« 

• 

« 

« 

u o o 

J -1  O 

40 

« 

UJ 

* 

o 

« 

z 

» 

U.  U.  K 

K 

« 

z 

« 

z 

« 

< O HI 

« 

*H  !-•  lO  O' 

40 

« 

• 

« 

UJ 

* 

K K Q 

« 

II  It  M> 

« 

« 

» 

« 

J q: 

« 

O 40 

O 

* 

« 

« 

u ^ c 

* 

•^3  K 

K 

« 

■5 

* 

1- 

« 

o < u 

« 

*.  •.  o 

« 

« 

r 

» 

3 O 

« 

HI  HI  OK 

C 

» 

H4 

* 

u; 

« 

Z C < 

* 

w w O 

C 

* 

w 

» 

S’ 

* 

< UJ 

« 

o e c 

* 

o 

« 

z 

» 

I vn 

* 

lO 

< < ^ (£> 

* 

< 

« 

o 

« 

Kao 

« 

o 

^ -J 

cc 

* 

-1 

« 

(J 

# 

o < 

* 

o 

* 

Ul  U.  >0  1^ 

CM 

* 

u. 

# 

« 

a ^ 

« 

o 

X 

•-I  HI 

C 

St 

« 

o 

« 

UJ  z u. 

« 

o 

in 

*to 

40 

• 

%D 

» 

H 

« 

K < 

* 

w 

^ to  o 

C 

• 

« 

• 

# 

« 

« X K 

« 

c 

IT 

to  K UJ  • 

• 

u> 

• 

• a 

« 

c 

* 

UJ 

« 

UJ  K UJ 

« 

K 

• • m • o 

a 

• 

a 

a o 

« 

z 

« 

q:  a 

« 

a 1/1 

« 

O O CM  UJ 

o 

o 

o • 

* 

< 

« 

UJ  3 

« 

o l/> 

« 

o 

• 

UJ  UJ  • 

• 

• 

• 

« 

• 

« 

X 

« 

U)  o 

« 

o 

O 

• • • ^ 

4*-* 

« 

* 

%r 

« 

muz 

« 

u. 

— a 3 w-'  c 

« 

r- 

* 

Z UJ 

« 

HI  _|  < 

« 

^ o ^ K 3 

z 

«>4 

3a 

tn 

« 

O 

* 

* 

to 

3 3 • ^ 3 40 

* 

3 Z 

•.  3 

« 

CM 

« 

K o: 

« 

X X 0. 

« 

< 

* 

3 

^1  • 

« 

IL  c 

» 

K K 3 

K 

CM 

IM  <-k  ^ HI  O Z 

% 

a HI 

» 

• 

» 

* 

0.  0. 

« 

•1 

<w 

^w3wwH 

H4 

»-4 

M — 

* 

UJ 

« 

Z J 

« 

U!  UJ  o 

« 

UJ 

O O C <£> 

w 

c 

w 

w.  e 

o 

• 

O J 

« 

O O UJ 

» 

o 

* 

< < l-H  < < O 

o 

< o 

o < 

» 

• 

* 

^ UJ 

« 

* 

« 

-J  _J  -1  -J  o 

< 

_J 

< 

< .j 

« 

* 

1-  u 

« 

u.  u.  a 

« 

• 

« 

Ll  u.  o u.  u. 

J 

u. 

-lU. 

* 

* 

u 

« 

c 

* 

K 

* 

HI  HI  < ^ HI  «»» 

u 

• 

• 1-4  U. 

U.  HI 

* 

« 

UJ  u. 

* 

» 

O 

» 

» » J » » 

HI 

c 

o » 

H« 

HI  II 

« 

U)  HI 

« 

1 

« 

• 

« 

m fo  u.  10  in  CM 

It 

o 

o to 

II 

It 

* 

* 

» 

« 

o 

o » 

* 

w 

* 

1 

* 

* 

• 

m o II  in  in  • 

3 

^ o 

3 0. 

« 

o 

« 

« 

• 

« 

A 

lo  m ^ in  in  o 

1 

1 in  z 

* 3 

* 

< 

* 

to 

« 

to 

« 

X 

w w w UJ 

^ o 

II 

It  ^ 

3 

« 

• 

« 

• 

» 

liH  UJ 

m 

o o «.  o o • 

Z K 

o 

a HI 

« 

u. 

« 

# 

« 

w 

3 

w 

-J  _|HU_f 

HI  lO  3 3 -J  HI 

H4 

« 

« 

* 

* 

Q Z K 

U.  U.  ^ U.  U.  1^ 

w 

* 

» u. 

w 

w w 

* 

UJ 

« 

UJ 

« 

►4 

< 

<!> 

o o 

V4 

O 

OiD 

« 

w 

» 

o 

» 

o 

« 

w 

K 

z 

w < w w w 

< K 

Z Z 

< 

< < 

* 

« 

< 

« 

< 

« 

z a 

J 

*-4 

M 

« 

u. 

« 

K 

* 

K 

« 

u.  o o 

u.  u.  u.  u.  u.  u. 

u.  o 

w U. 

u. 

U.U. 

« 

« 

u> 

* 

u> 

« 

u u. 

^ M 1-4  HI 

H«  O X O HI 

HI 

*•4  HI 

00  c 

O' 

o 

40 

O •H 

o 

K 

K 

ir 

40 

40 

40 

164 


stage  1.3.2  - SET  APPROPRIATE  FLOWS  TO  ZERO  (0)  AND  WATER  LEVEL 
ANP  OEPTH  TO  -1000, 


LISTING  OF  SUBROUTINE  MOD 


t 


* 

« 

« 

« 

« 

» 

» 

ft 

ft 

« 

* 

« 

« 

* 

* 

* 

ft 

ft 

« 

* 

* 

* 

» 

* 

* 

ft 

ft 

« 

« 

« 

i/).J  * 

* 

» 

* 

ft 

ft 

« 

« 

» 

X liJ  « 

» 

* 

« 

ft 

ft 

« 

« 

* 

o > » 

* 

* 

« 

ft 

« 

« 

» 

« 

Ui  UJ  * 

» 

* 

* 

ft 

ft 

« 

« 

« 

« 

» 

* 

» 

ft 

ft 

« 

» 

« 

u * 

♦ 

* 

« 

ft 

ft 

« 

« 

* 

a.  * 

* 

« 

« 

ft 

ft 

« 

* 

« 

• UJ  « 

« 

» 

« 

ft 

ft 

« 

« 

« 

OH  * 

* 

* 

* 

0. 

ft 

ft 

» 

« 

« 

< « 

» 

« 

« 

o 

ft 

ft 

» 

« 

* 

O X « 

* Z 

« 

« 

o 

ft 

ft 

« 

» 

* 

z « 

« o 

* 

» 

-1 

ft 

ft 

« 

« 

« 

UJ  o « 

* »-• 

« 

* 

ft 

ft 

» 

« 

« 

• z ♦ 

♦ H 

* 

« 

u. 

ft 

ft 

« 

« 

« 

< « 

« U 

* 

« 

o 

ft 

ft 

« 

« 

K * 

« UJ 

* 

* 

ft 

ft 

* 

» 

* 

Z X ♦ 

♦ (T 

« 

* 

a 

ft 

ft 

« 

« 

« 

liJ  H » 

* *-4 

« 

« 

z 

ft 

ft 

» 

* 

« 

Z Q.  * 

* o 

« 

* 

UJ 

ft 

ft 

» 

« 

« 

Z UJ  » 

* 

« 

« 

ft 

ft 

« 

« 

« 

o o * 

* H 

« 

« 

o 

ft 

ft 

« 

« 

« 

u # 

« Z 

* 

* 

H 

ft 

ft 

» 

< 

« 

» 

tr  # 

« < 

« 

ft 

ft 

ft 

« 

« 

OH* 

* 

* 

ft 

0. 

ft 

ft 

# 

c 

« 

* 

H UJ  * 

* z 

« 

^ W 

ft 

z 

ft 

ft 

« 

z 

« 

* 

in  « 

* Q: 

« 

CD  CC  CO  CO 

ft 

ft 

ft 

« 

U1  * 

« 

UJ  « 

* O 

« 

IP  IP  IP  If) 

ft 

n 

ft 

ft 

* 

« 

« 

q:  o * 

« u. 

« 

ft 

ft 

ft 

* 

» 

* 

U)  in  * 

* 

* 

o o o o 

* 

1 

ft 

ft 

« 

« 

* 

I * 

* in 

« 

H H H H 

ft 

ft 

ft 

« 

1 

« 

* 

u « 

a 

* c 

* 

ft 

c 

ft 

ft 

* 

1 

« 

« 

z •-*  * 

CO 

* o 

* 

o o o o 

ft 

o 

ft 

ft 

« 

1 

« 

# 

o ♦ 

IT 

* o 

* 

o o o o 

ft 

o 

ft 

ft 

« 

« 

« 

a c * 

* -J 

* 

ft 

ft 

ft 

«■ 

« 

# 

u z « 

O 

« Ul 

« 

^ ^ M 

ft 

\L 

ft 

ft 

* 

fO 

» 

* 

< * 

H 

« 

« 

ft 

ft 

ft 

• 

« 

« 

a * 

« -J 

« 

< < < < 

ft 

H 

ft 

ft 

« 

* 

« 

o in  * 

O 

* -1 

* 

H H H H 

ft 

o 

ft 

ft 

« 

« 

« 

c c • 

o 

* UJ 

» 

U U U J 

ft 

z 

ft 

ft 

# 

lii  « 

« 

^ o « 

« u 

* 

UJ  UJ  UJ  UJ 

ft 

ft 

ft 

« 

o 

« 

« 

o « 

* 

* 

O C O C 

ft 

in 

ft 

ft 

« 

< 

« 

« 

U.  -J  * 

* u. 

« 

ft 

UJ 

ft 

ft 

* 

K 

« 

« 

O IL  « 

• 

* 

» 

• • • • 

ft 

o 

ft 

ft 

A 

» 

i/)  » 

« 

* 

o 

* 

« 

UJ  UJ  UJ  UJ 

ft 

o 

ft 

ft 

« 

* 

« 

z u * 

w 

« X 

« 

o o o o 

ft 

ft 

ft 

PO 

« u. 

« 

« 

O .J  * 

1 

« u 

« 

• • • • 

ft 

u 

ft 

ft 

c 

« 

c * 

» 

»-•  UJ  « 

* UJ 

« 

ft 

u 

ft 

ft 

» 

« 

* 

* 

HU# 

• 

* X 

« 

Nl  N ISJ  N 

ft 

UJ 

ft 

ft 

X 

« c 

« 

* 

u * 

H 

« u 

* 

Nl  rsj  IM  N 

ft 

u 

ft 

ft 

lO 

» 

z 

« 

* 

UJ  u.  « 

J 

« 

» 

1 1 1 1 

ft 

ft 

ft 

• • 

w 

« 

lii 

* 

* 

in  •-(  « 

• 

• 

• 

« 1 

* 

ft 

1 

ft 

ft 

• 

• o o 

tn 

« 

» 

* 

* 

D 

o 

« 

* 

*5  2 tH  ^ 

ft 

ft 

ft 

o 

o 

o c 

« 

« 

« 

1 * 

0^ 

O 

o 

♦ 

« 

» z a » 

ft 

<Si 

ft 

o 

ft 

II 

II 

o o 

X 

« 

1 

« 

« 

* 

”5  0 0 

* • 

« 

ft 

• 

ft 

• 

ft 

A 

« 

1 

* 

o 

» 

4-  * 

o ^ 

* ^ 

« 

Z Q. 

ft 

ft 

o o 

ft 

“5  ^ 

1 1 

« 

r 

« 

o 

« 

• « 

1 

1 

o o 

* • 

* 

M M R*« 

ft 

• 

ft 

o 

ft 

* 

II  II 

w 

« 

« 

« 

^ * 

w 

II 

II 

O * 

♦ 4-4 

* 

W w w w 

ft 

w 

ft 

O II 

« 

^ “5 

K 

« 

* 

* 

« 

o 

* 

* 

X X X z 

ft 

ft 

ft 

s. 

% 

< 

• 

< 

« 

o 

* 

Ui  « 

'^“50-^00 

« UJ 

« 

ft 

UJ 

« 

o < 

ft 

» » 

Z 

« 

« 

H 

« 

o # 

* 

* 

H M M II 

» o 

* 

w w w 

ft 

o 

ft 

H H 

ft 

w 

a: 

* 

o * 

* 

< * 

II  Z Z 

» < 

* 

ft 

< 

ft 

ft 

X 

w w 

o 

« 

z 

« 

o 

« 

H * 

u 

w 

O N ">  -5 

# H 

« 

u.  u.  u u 

ft 

H 

ft 

O UI 

ft 

O O O X 

u. 

» 

u 

* 

o 

* 

in  * 

O I O N 

« in  * 

M M M »ii4 

ft 

in  ft 

o o 

ft 

o 

CM 

CD 

flO 

CO 

IT 

IP 

IT 

uu  u o o 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

u 

c 

c 

u u 

U 

u u 

165 


stage  1.4.3  - CODE  FROM  HERE  TO  • END  R*  CHECKS  IF  CELL  FLOODS 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


« 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

« 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

« 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

« 

ft 

ft 

t/l 

ft 

ft 

ft 

ft 

1/) 

ft 

* 

ft 

ft 

o 

ft 

ft 

ft 

ft 

o 

ft 

« 

ft 

ft 

o 

ft 

ft 

ft 

ft 

o 

ft 

ft 

ft 

o 

ft 

ft 

ft 

ft 

o 

ft 

* 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

ft 

u. 

ft 

ft 

ft 

ft 

u. 

ft 

« 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

ft 

-1  i/1 

ft 

ft 

ft 

ft 

ft 

« 

ft 

ft 

-1  iD 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

UJ  < 

ft 

ft 

ft 

ft 

Ui 

ft 

* 

ft 

ft 

U -1 

ft 

ft 

ft 

ft 

O i/1 

ft 

* 

ft 

ft 

u. 

ft 

ft 

ft 

ft 

ID 

ft 

* 

ft 

ft 

u. 

ft 

ft 

ft 

ft 

u.  < 

ft 

* 

ft 

ft 

^ UJ 

ft 

ft 

ft 

ft 

ft 

* 

ft 

ft 

•- 

ft 

ft 

ft 

ft 

tl. 

ft 

« 

ft 

ft 

i/1  < 

ft 

ft 

ft 

ft 

i/1 

ft 

« 

ft 

ft 

5^  t-i 

ft 

ft 

ft 

ft 

^ UJ 

ft 

» 

ft 

ft 

u cr 

ft 

in 

in 

ft 

ft 

ft 

U H 

ft 

« 

ft 

ft 

UJ  a 

ft 

O' 

o 

ft 

ft 

ft 

Ul  < 

ft 

O 

« 

ft 

ft 

I o 

ft 

in 

in 

ft 

o 

ft 

ft 

X 

ft 

o o 

* 

ft 

ft 

U (C 

ft 

IT 

ft 

ft 

ft 

o or 

ft 

IT  O 

* 

ft 

ft 

Q. 

ft 

O O' 

o 

ft 

a 

ft 

ft 

0. 

ft 

in 

« 

o 

ft 

ft 

• G. 

ft 

H in 

K 

ft 

z 

ft 

ft 

• o 

ft 

o 

« 

z 

ft 

ft 

o < 

ft 

IT 

ft 

UJ 

ft 

ft 

UJ  tL 

ft 

K O 

» 

u 

ft 

ft 

ft 

o o 

O' 

O 

ft 

ft 

ft 

a 

ft 

K 

« 

ft 

ft 

Z i/l 

ft 

iD  K 

in  ID 

ft 

ft 

ft 

O CL 

ft 

o 

« 

ft 

ft 

O UJ 

ft 

r- 

ft 

ft 

ft 

z < 

ft 

iD  O lO 

« 

ft 

ft 

UJ  ID 

ft 

^04 

o 

ft 

ft 

ft 

UJ 

ft 

iD  C 

« 

ft 

ft 

• ^ 

ft 

ID  4 

H 

ft 

ft 

ft 

• UJ 

ft 

^ to 

« 

ft 

ft 

< 

ft 

rv 

ft 

ft 

« 

<D 

ft 

* 

ft 

ft 

O I 

ft 

O 

ft 

ft 

ft 

o z 

ft 

aO  • 

« 

ft 

ft 

K U 

ft 

• C 4 

o 

• 

ft 

in 

ft 

ft 

K < 

ft 

< C 

* 

• 

ft 

ft 

ft 

UJ  < Z 

o 

ft 

• 

ft 

ft 

I 

ft 

• z 

* 

ft 

ft 

UJ  o 

ft 

(D  W < 

UJ 

ft 

4 

ft 

ft 

UJ  u 

ft 

UJ  -J  < 

« 

• 

ft 

ft 

a z 

ft 

• J • • 

• 

ft 

• 

ft 

ft 

q: 

ft 

(D  UJ  • 

« 

ft 

ft 

UJ  < 

ft 

U:  O 

<\J 

ft 

ft 

ft 

U)  o 

ft 

• o 

« 

ft 

ft 

z 

ft 

— c — z 

c 

ft 

ft 

ft 

I 2 

ft 

« 

UJ 

ft 

ft 

1- 

ft 

“>< 

in 

ft 

UJ 

ft 

ft 

< 

ft 

« 

ID 

ft 

ft 

S X 

ft 

-3  • . • 

■J 

ft 

ID 

ft 

ft 

z 

ft 

a 

K) 

« 

< 

ft 

ft 

O tD 

ft 

^ H ^ 

• 

•.  lO 

ft 

< 

ft 

ft 

O CL 

ft 

-j  _i  -j 

II 

* 

ft 

ft 

or 

ft 

*-•  -J  0. 

UJ  M II 

ft 

ft 

ft 

or  o 

ft 

A 

« 

I/I 

ft 

ft 

u.  or 

ft 

w M -> 

z 

ft 

i/1 

ft 

ft 

U.  K 

♦ 

# 

ft 

ft 

ft 

e w • 

• 

o ^ 

ft 

ft 

ft 

w 

w ^ w 

« 

li. 

ft 

ft 

UJ  z 

ft 

< «-<»  <0 

ftC  "5 

ft 

U. 

ft 

ft 

Ul  z 

ft 

iD  Nl  O 

* 

» 

C 

ft 

ft 

o o 

ft 

-J  M < 

ft 

c 

ft 

ft 

o o 

ft 

< K < 

« 

ft 

ft 

o q: 

ft 

u.  rsj  _)  o 

U.  W 

ft 

ft 

ft 

O CL 

ft 

-J  1 -J 

w 

« 

c 

ft 

ft 

o u 

ft 

1 U.  « 

♦ 

*-4  w 

ft 

a 

ft 

ft 

U U 

ft 

U U 

ID 

* 

z 

ft 

ft 

ft 

* J 

**) 

*-  iD 

ft 

z 

ft 

ft 

ft 

M vH 

< 

* 

UJ 

ft 

ft 

1 

ft 

fO  “7  II  u. 

10  < 

ft 

UJ 

ft 

ft 

1 

ft 

» a 11 

« 

ft 

ft 

ft 

«h  * A 

ft 

ft 

ft 

ft 

to~> 

U 

« 

ft 

ft 

in 

ft 

10  ^ II 

O U. 

ft 

ft 

ft 

vO 

ft 

* 

ft 

ft 

• 

ft 

•O  0.  • 

<D  lO  »H 

ft 

ft 

ft 

• 

ft 

o .1  0. 

ft 

1 

ft 

ft 

ft 

w M ^ *3  ^ < 

w ^ 

ft 

ft 

ft 

4 

ft 

to 

lO 

ft 

ft 

ft 

• 

ft 

Q Ol 

+ 

O K) 

ft 

ft 

ft 

• 

ft 

w X •• 

» 

ft 

ft 

ft 

ft 

-J  I z u. 

U * 

ft 

ft 

ft 

ft 

c 

lO 

ft 

ft 

ft 

ft 

U.  w w w 

T ►.  U.  O 

ft 

ft 

ft 

ft 

_J  ^ w 

K5 

ft 

u 

ft 

ft 

UJ 

ft 

e c 

10 

ft 

o 

ft 

ft 

UJ 

ft 

u e 

w 

ft 

ft 

ft 

iD 

ft 

w w < < 

M 

w w 

ft 

ft 

ft 

o 

ft 

O 

ft 

o 

ft 

ft 

< 

ft 

-1  -1  z 

o 

ft 

o 

ft 

ft 

< 

ft 

w -J 

ft 

z 

ft 

ft 

ft 

U.  U.  U.  U.  u. 

Uu  J 

ft 

z 

ft 

ft 

H 

ft 

u u u 

u. 

ft 

UJ 

ft 

ft 

i/1 

ft 

M M M 

1-1  u. 

ft 

UJ 

ft 

ft 

i/1 

ft 

M M 

ouuouuuoououu 


uuuuuuuouuuuu 


IFLAG(I»J)=IFLA6(I»J)  .and.  iqq 
IJM=IJM+1 

IF  ( IFLA6(I*1,J)  .NE.  502  ) GO  TO  599 

IF  ( FLO(33»3.IFLAG(r*J) J .EO.  7 ) GO  TO  599 

FLD(33.3.IFLAG(I.J) )=3 


0^ 

p 

c 

1-1 

u 

G 

o 

o 


<n 

u 

g 


« 

* 

¥ 

* 

« 

* 

« 

« 

« 

¥ 

« 

» 

« 

¥ 

* 

* 

¥ 

* 

¥ 

* 

¥ 

« 

* 

¥ 

* 

¥ 

¥ 

¥ 

* 

* 

¥ 

« 

¥ 

¥ 

¥ 

* 

* 

¥ 

¥ 

¥ 

¥ 

¥ 

« 

» 

¥ 

Z 

¥ 

¥ 

¥ 

¥ 

« 

* 

¥ 

¥ 

¥ 

¥ 

¥ 

* 

* 

¥ 

¥ 

¥ 

¥ 

¥ 

« 

» 

¥ 

-1 

¥ 

¥ 

¥ in 

¥ 

» 

* 

¥ 

UJ 

¥ 

¥ 

« in  o 

¥ 

* 

« 

¥ 

> 

¥ 

¥ 

¥ a ^ 

¥ 

* 

* 

¥ 

UJ  Ui 

¥ 

¥ 

¥ ^ 

¥ 

« 

* 

¥ 

-1  o 

¥ 

¥ 

¥ O 

¥ 

« 

* 

¥ 

< 

¥ 

¥ 

* O 1- 

« 

* 

* 

¥ 

a:  c£ 

¥ 

¥ 

* H- 

« 

« 

* 

¥ 

UJ  UI 

¥ 

¥ 

« O 

* 

« 

« 

¥ 

1-  > 

¥ 

¥ 

» o o 

« 

* 

« 

¥ 

< < 

¥ 

¥ 

* o 

« 

« 

* 

¥ 

s 

¥ 

¥ 

¥ 

¥ 

* 

« 

¥ 

o • 

¥ 

¥ 

* — 

¥ 

* 

* 

¥ 

(/)  H i/) 

¥ 

¥ 

¥ • • 

¥ 

« 

« 

¥ 

O -J 

¥ 

¥ 

« O O 

¥ 

* 

« 

¥ 

Z 1-  J 

¥ 

¥ 

« 

¥ 

« 

UJ 

* 

¥ 

1-4  UJ  UI 

¥ 

¥ 

¥ • • 

« 

« 

* 

¥ 

U ir  <J 

¥ 

¥ 

* K •- 

« 

« 

o 

« 

¥ 

¥ 

¥ 

« -1  -1 

¥ 

« 

z 

« 

¥ 

* -J  o 

¥ 

¥ 

¥ • • 

¥ 

« 

Ui 

* 

¥ 

U.  UJ  UJ 

¥ 

¥ 

¥ 

¥ 

» 

« 

¥ 

> o 

¥ 

O 

¥ 

¥ 

« 

« 

¥ 

O UJ  o 

¥ 

O 

¥ 

* ^ "3 

¥ 

* 

1 

* 

¥ 

Z -1  o 

¥ 

¥ 

U 

♦ Z - 

¥ 

« 

1 

« 

¥ 

UI  -1 

¥ 

¥ 

3L 

♦ “3  ^ 

¥ 

* 

1 

# 

¥ 

» fi:  U. 

¥ 

o 

c 

<V' 

to 

¥ 

C> 

* » Z 

¥ 

« 

* 

¥ 

UJ 

¥ 

K 

o 

o 

o 

o 

¥ 

« 

• 14  14 

¥ 

« 

* 

¥ 

O K H 

¥ 

s 

<0 

¥ 

CD 

« w w 

¥ 

« 

¥ 

¥ 

K < Z 

¥ 

C 

sC 

¥ 

¥ c O 

¥ 

* 

• 

* 

¥ 

» UI 

¥ 

c 

o 

o 

o 

o 

in 

¥ 

UJ 

¥ 

¥ 

« 

« 

¥ 

UJ  u 

¥ 

H 

h- 

K 

CO 

¥ 

o 

¥ • • 

¥ 

« 

• 

« 

¥ 

CL  • < 

¥ 

c 

o 

¥ 

< 

¥ ac 

¥ 

* 

« 

¥ 

UJ  -J 

¥ 

o 

o 

o 

o 

in 

K 

¥ 

IT 

« z z 

¥ 

« 

* 

¥ 

X 

¥ 

e 

e 

c 

ID 

¥ 

« < « 

¥ 

* 

u 

« 

¥ 

UJ  < 

¥ 

o 

o 

O 

¥ 

¥ • • 

¥ 

« 

<D 

« 

¥ 

Z ij 

¥ 

o 

0m, 

0m. 

h~ 

e 

¥ 

CL 

¥ 

¥ 

« 

< 

« 

¥ 

O IL 

¥ 

o 

¥ 

O 

¥ 0^  ^ 

¥ 

» 

1- 

« 

¥ 

or  o o 

¥ 

• 

• 

• 

• 

• 

O 

0m, 

¥ 

u 

¥ 04  ^ 

¥ 

« 

U) 

« 

¥ 

U.  UJ 

¥ 

o 

o 

o 

o 

o 

¥ 

» Z » 

¥ 

* 

« 

¥ 

O-J 

¥ 

• 

m 

¥ 

¥ "0  04 

¥ 

« 

u. 

» 

¥ 

UJ  O UI 

¥ 

• 

• 

• 

• 

0m 

O 

¥ 

u 

« 1 Z 

¥ 

« 

o 

» 

¥ 

o o > 

¥ 

e 

H 

K 

K 

¥ 

UJ 

# 14  14 

0m. 

¥ 

* 

¥ 

O ^ Ui 

¥ 

• 

-i 

-J 

mJ 

0im 

z 

• 

¥ 

X 

♦ W 1i» 

N 

¥ 

« 

o 

* 

¥ 

U U -1 

¥ 

• 

• 

04  • 

“3  • 

04 

“3 

U 

¥ 

u 

« iSi  Kl 

I 

¥ 

« 

z 

* 

¥ 

¥ 

z 

0. 

14 

-1 

¥ 

¥ 

-3 

¥ 

* 

UJ 

« 

¥ 

1 

¥ 

< 

0m, 

“3  ^ 

04  ^ 

•3 

IM 

• 

¥ 

1 

¥ • • 

1 

¥ 

« 

« 

¥ 

¥ 

K 

“5 

0^ 

^ -3 

0.  ^ 

ISJ  UI 

• 

¥ 

# H K 

14 

¥ 

* 

» 

¥ 

r- 

¥ 

* 

“>  z 

►4  CL 

14 

1 

< K 

0m, 

¥ 

CD 

« O Cl 

*-» 

¥ 

« 

1 

« 

¥ 

• 

¥ 

UJ 

“D 

“3 

u z 

Z K (D 

-3 

¥ 

• 

¥ • • 

u 

¥ 

« 

1 

¥ 

¥ 

¥ 

o 

Z 

X 0. 

I • 

I *-4  D 

J 

• 

1 

¥ 

¥ 

o 

u 

¥ 

* 

1 

¥ 

¥ 

• 

¥ 

N4 

z 

14 

•f  M 

^ ♦ ^4 

■f 

V Ji 

UI  UJ 

14 

¥ 

• 

* z z o 

< 

¥ 

» 

« 

¥ 

¥ 

I/I 

w 

1-4 

w 

-4  r w 

+ z 

04  Z 

z 

II 

II  o u 

w 

¥ 

♦ D 3 NO  or 

¥ 

« 

¥ 

¥ 

¥ 

CD 

• 

Q 

w 

O •f  D O 

3 O •*•  3 3 

0m, 

II 

14 

o 

¥ 

* UI  UI 

K 

¥ 

« 

UJ 

¥ 

¥ 

Ui 

¥ 

< 

c 

X 

O UI 

O UI 

o U)  u>  ^ 

“3  *i 

¥ 

UI 

¥ 

o 

¥ 

« 

¥ 

¥ 

o 

¥ 

o 

II 

w 

p4 

II 

►4  II  — 

•-4  II  w 

l-l  II 

II 

* 

K 

¥ 

o 

* W w 

t- 

J 

¥ 

* 

o 

¥ 

¥ 

< 

¥ 

II 

Z 

II 

z 

II  z 

II  z 

II  z z 

14 

•■4  _J 

¥ 

< 

« 

-1 

¥ 

« 

z 

¥ 

¥ 

K 

¥ 

u 

U D U U 

X 

UUIXUUXUUDD 

w 

Ui  u. 

u 

¥ 

*- 

« u.  u o 

< 

¥ 

* 

UJ 

¥ 

¥ 

¥ 

►4  I/I 

N4 

►4  1/)  ^4 

■1 1/)  11  ■->  (/)  >-> 

•-4  U)  U)  X 

O O *-4 

14 

¥ 

UI  « »-<  14  iO  o 

¥ 

O' 

c 

CVJ 

to 

m 

O' 

o 

o 

o 

o 

o 

in 

s 

a- 

uuouuuuuuuuooo 


168 


* 

« 

H 

« 

» 

o 

« 

o 

ft 

1-4 

ft 

ft  UJ  u 

ft 

"3 

« 

» 

» 

« 

» 

ft 

ft 

ft  X < 

ft 

“3  •- 

* 

« 

Z 

« 

« 

o » 

ft  UJ 

ft 

ft  o 

ft 

3t 

O 

« 

* 

« 

« UJ 

« 

ft 

Ui 

ft 

ft  CO 

ft 

3t 

S 

« 

« 

* 

« 

c 

« 

c 

ft 

IT 

ft 

ft  • e 

ft 

^ w 

•V 

z 

« 

» 

CO 

« 

* 

o 

« 

ft 

ft 

ft  < 

ft 

w O 

0/ 

« 

« 

J 

« 

* o 

* 

ft  o 

ft 

ft  -1 

ft 

CD  < 

D 

CD 

« 

« 

-1 

« 

# 

« 

o 

ft 

K 

ft 

ft  o u 

ft 

< .J 

c 

z 

« 

« 

UJ 

« 

* u. 

« 

CD 

ft 

ft 

CO 

ft  z 

ft 

-1  U. 

f-i 

H 

« 

* 

u 

« 

* 

* 

•li- 

a 

ft 

o 

ft  IJ  CaJ 

ft 

CO 

U. 

4J 

H 

C 

* 

« 

« 

« 

10 

« 

ft 

z 

ft 

ft  » z 

ft 

o 

CM  O 

•M 

c 

P 

z 

« 

« 

CO 

« 

« 

>* 

« 

ft  r) 

ft 

ft  h- 

« 

o 

Q 

iLi 

« 

« 

* 

« 

* 

ft 

“3 

ft 

o 

ft  o 

ft 

K)  it 

o 

Qtf 

« 

« 

u 

« 

« 

3fc 

» 

ft 

ft 

w 

ft  K CO 

ft 

• • 

CO  CO 

PQ 

« 

« 

UJ 

» 

* ^ 

* 

• 

ft 

O 

ft 

ft  UJ 

ft 

o 

CC  or 

in  • < 

1 

P 

« 

« 

I 

« 

« 

< 

•ft 

c 

ft 

10 

ft 

c 

ft  Ui  CD 

ft 

K 

o o 

• 0 7 

CO 

CD 

» 

« 

u 

« 

# 

ft 

UJ 

ft 

ft 

e 

ft  Ct  z 

ft 

• • 

X • UJ 

* 

« 

* 

« 

CO 

ft 

• 

ft  u. 

ft 

ft  UJ  < 

ft 

o 

o o • • 

• 

Pm 

C 

# 

« 

o 

« 

» 

M 

ft 

ft 

ft 

ft  z z 

ft 

CD 

• UJ  q: 

O 

z 

« 

« 

« 

CO 

« 

ft 

ft 

ft 

ft  u 

ft 

• ^ o 

O 

llj 

« 

« 

« 

IT 

« 

J 

ft 

ft 

1 

ft 

ft  > 

ft 

Q 7 

^ M ^ • 

U 

« 

» 

* 

d* 

* 

-1 

ft 

“3 

ft 

ft 

lO 

ft  o o 

ft 

"3  “3  -3  ^ “3 

•-3 

z 

* 

« 

o 

« 

« 

Ul 

ft 

ft 

>- 

ft 

CM 

ft  ct  z 

ft 

< 

* » 

• -5  ^ 

A 

H 

« 

« 

K 

« 

O 

* 

u 

ft 

iC 

ft 

ct 

ft 

ft  u.  < 

ft 

H 

3t  ^ 

^ it  "3 

< 

H 

o 

« 

« 

« 

K 

« 

ft 

ft 

o 

ft 

• 

ft 

ft 

^ it 

H 

CO 

« 

* 

a 

« 

* 

u. 

ft 

w 

ft 

ft 

UJ 

ft  UJ  0. 

ft 

UJ 

w w 

i-i  M *1*'  it 

M 

o 

« 

« 

o 

« 

O 

« 

ft 

CD 

ft 

J 

ft 

CD 

ft  c r? 

ft 

O 

O O 

w w C£  tH 

z 

« 

« 

o 

« 

CD 

» 

ft 

< 

ft  J 

ft 

• 

ft  o 

ft 

< < 

CD  O < ^ 

UJ 

» 

« 

J 

« 

* 

ft 

J 

ft 

UJ 

ft 

ft  U CO 

ft 

• 

-J  J «r  « J CP 

» 

# 

* 

« 

u 

ft 

U. 

ft 

CJ 

ft 

ft  UJ 

ft 

1- 

U.  U.  J u u.  < 

# 

« 

w 

# 

« Ui 

ft 

• 

ft 

-3 

ft  UJ 

ft 

CD 

u.  u.  ^ 

« 

« 

z 

« 

CO  C “3 

« 

I 

ft 

ft 

CO 

ft 

* 

ft  z ct 

ft 

• 

II  II 

H4  M » U. 

e 

« 

* 

H 

« 

< * 

« 

u 

ft 

ft 

ft 

ft  H c 

ft 

•■>. 

II  «.  lO 

« 

* 

« 

H • a 

« 

ft 

•> 

ft 

ft 

ft 

ft 

K)  •>  II 

c 

« 

« 

1 

* 

-J  c cc. 

« 

1 

ft 

ft 

1 

ft 

w 

ft  1 

ft 

”3 

CL  S 

-3  ••  C ^ 

z 

« 

« 

« 

UJ  UJ  ^ 

» 

ft 

(M 

ft 

ft 

CD 

ft 

ft 

“3  -> 

lO  K)  *3 

LJ 

» 

» 

o 

» 

O • II 

* 

w 

ft 

CM  ft 

< 

ft  fO 

ft 

m ^ • 

* 

Ul 

* 

• 

« 

-> 

» 

• 

ft 

O 

ft 

• 

ft 

J 

ft  • 

ft 

N4 

^ )t 

^ a it 

« 

p 

* 

(V 

« 

II  cr 

« 

<NJ 

ft 

J 

ft 

CM 

ft 

U. 

ft  CM 

ft 

w 

►4 

►4  C -J 

* 

z 

• 

» 

CD  O 

1 

■f 

« 

ft 

u. 

ft 

ft 

ft 

ft 

o 

w ^ 

w _J  U. 

CD 

« 

« 

u< 

* 

< "3  ^ "3  “3 

« 

UJ 

ft 

ft 

CiJ  ft 

ft  UJ 

ft 

e e 

CD  U.  CD 

* 

1- 

« 

CD 

« 

»-  ^11 

II 

« 

CD 

ft 

ft 

CD 

ft 

w 

ft  CD 

ft 

< < 

< ^ w < 

O 

« 

z 

« 

< 

» 

-I  w 

* 

< 

ft 

ft 

< 

ft 

ft  < 

ft 

-1 J 

-1  -1 

z 

« 

o 

« 

K 

* 

UJ  U.  o z 

(L 

« 

K 

ft 

u. 

ft 

K 

ft 

u. 

ft  I- 

ft 

u. 

u.  u. 

u.  u.  u.  u. 

UJ 

« 

u 

« 

CO 

« 

O « O *3  -3 

« 

CO  * 

»-« 

ft 

co 

ft 

ft  CO 

ft 

M M 

169 

^ _ J 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


« 

» 

» 

« 

* 

ft 

ft 

ft 

« 

« 

* 

* 

« 

ft 

ft 

ft 

* 

* 

» 

« 

* 

ft 

ft 

ft 

« 

« 

* 

* 

• 

ft 

ft 

ft 

« 

« 

« 

* 

* 

ft 

ft 

ft 

* 

» 

* 

* 

ft 

>• 

ft 

ft 

ft 

« 

« 

« 

* 

ft 

ft 

ft 

ft 

« 

« 

« 

« 

ft 

o 

ft 

ft 

ft 

* 

in 

* 

« 

* 

ft 

z 

ft 

ft 

ft 

« 

I 

« 

« 

« 

ft 

ft 

ft 

ft 

« 

K 

» 

« 

* 

ft 

J o 

ft 

ft 

ft 

* 

a 

» 

« 

« 

ft 

UJ  q: 

ft 

ft 

ft 

* 

UJ 

* 

« 

« 

ft 

o o 

ft 

ft 

ft 

« 

o 

* 

» 

« 

ft 

u 

ft 

ft  Z 

ft 

« 

« 

* 

« 

ft 

0.  u 

ft 

ft  o 

ft 

* 

o 

» 

* 

« 

ft 

»-l  < 

ft 

ft  H# 

ft 

* 

z 

« 

« 

« 

ft 

ft 

ft  K 

ft 

« 

< 

« 

« 

« 

ft 

in  i/i 

ft 

ft  O 

ft 

« 

» 

« 

* 

ft 

X z 

ft 

ft  UJ 

ft 

» 

« 

» 

« 

ft 

U ft- 

ft 

ft  (£ 

ft 

« 

o 

« 

« 

* 

ft 

UI  a 

ft 

ft 

ft 

« 

w 

« 

« 

* 

ft 

X UJ 

ft 

ft  O 

ft 

* 

« 

« 

« 

ft 

o o 

ft 

ft 

ft 

« 

o 

» 

« 

» 

ft 

•li- 

ft V 

ft 

» 

cr 

« 

» 

* 

ft 

o 9 

ft 

ft  z 

ft 

O'  O' 

« 

IL 

« 

» 

* 

ft 

ft 

ft  < 

ft 

o c o 

« 

NJ  • 

« 

# 

« 

ft 

o < 

ft 

ft 

ft 

© © o 

* 

O 

« 

« 

« 

ft 

z 

ft 

ft  z 

ft 

© 

« 

o o 

« 

* 

c 

« 

ft 

UJ  U) 

ft 

ft  o 

ft 

o o 

« 

H o 

« 

« 

z 

ft 

e 

ft 

ft  or 

ft 

K O 

« 

» 

« 

UJ 

* 

ft 

o < 

ft 

ft  u 

ft 

* 

in  1 

« 

« 

« 

ft 

K «l 

ft 

ft 

ft 

o o 

« 

» 

« 

* 

* 

ft 

U. 

ft 

ft  in 

ft 

© © o 

« 

o o 

« 

* 

1 

« 

ft 

UJ 

ft 

ft  c 

ft 

© 

» 

-1  K 

« 

» 

1 

« 

ft 

Ct  (/) 

ft 

ft  o 

ft 

« 

U 

» 

« 

1 

* 

ft 

UJ  UI 

ft 

ft  o 

ft 

« 

(/) 

# 

» 

« 

ft 

I © 

ft 

ft  -J 

ft 

< < 

» 

UJ  -i 

* 

» 

« 

ft 

z 

ft 

ft  u 

ft 

»-  K < 

« 

H UJ 

* 

« 

in 

« 

ft 

z < 

ft 

ft 

ft 

•1  -1  H 

* 

< > 

« 

« 

• 

* 

ft 

O X 

ft 

ft  -i 

ft 

UJ  UI  -I 

« 

^ Ui 

« 

« 

cu 

« 

ft 

a:  u 

ft 

ft  -1 

ft 

O O UJ 

« 

or  ^ 

• 

« 

• 

ft 

u 

ft 

ft  UJ 

« 

c 

« 

0. 

« 

* 

UJ 

* 

ft 

o 

ft 

ft  u 

ft 

• • 

« 

o cc 

« 

« 

o 

« 

ft 

UJ  z 

ft 

ft 

ft 

♦-  1-  • 

» 

OC  UJ 

« 

« 

< 

« 

ft 

o < 

ft 

ft  u 

ft 

© © K 

« 

0.  K 

* 

« 

» 

ft 

o 

ft 

ft  t-N 

ft 

• • © 

« 

(L  < 

« 

« 

U) 

« 

ft 

U 1/) 

ft 

ft 

ft 

• 

« 

< X 

« 

« 

« 

ft 

o 

ft 

ft  X 

ft 

^ A 

« 

« 

u. 

* 

ft 

UJ  o 

ft 

ft  o 

ft 

M ISJ  ^ 

» 

H c 

« 

* 

c 

« 

ft 

I o 

ft 

ft  Ui 

ft 

M IS!  rs' 

* 

UJ  z 

« 

« 

« 

ft 

K -1 

ft 

ft  X 

ft 

1 N 

* 

in  < 

« 

« 

o 

« 

ft 

u 

ft 

ft  u 

ft 

c ^ • 

« 

* 

• • 

* 

z 

« 

ft 

1 

ft 

ft 

ft 

* 

1 

« 

o o 

• 

» 

U) 

« 

ft 

ft 

ft  1 

ft 

« 

* 

o o • 

o 

* 

* 

ft 

o 

ft 

ft 

ft 

•>“5  0. 

* 

« 

o o o 

• 

• 

II 

* 

« 

ft 

• 

ft 

ft 

ft 

« 

• 

« 

^ w II 

o 

o 

« 

1 

« 

ft 

O' 

ft 

ft  • 

ft 

^ X • 

» 

in 

» 

1 1 ^ 

II 

II 

•-(  o 

« 

1 

« 

ft 

• 

ft 

“5 

ft  o 

ft 

X 1-^  X 

» 

• 

* 

II  II 

A 

r O' 

» 

• 

* 

ft 

CM 

ft 

ft  • 

ft 

1-4 

« 

(M 

« 

“>  ">  “5  ^ 

« 

« 

ft 

ft 

X 

ft  CM 

ft 

w I w 

* 

« 

« 

« 

ft 

UJ 

ft 

1-4 

ft 

ft 

I I 

» 

UJ 

» 

X 

X 

X o 

« 

“D 

« 

ft 

© 

ft 

o 

ft  Ui 

ft 

« 

o 

« 

^ ^ *-i 

t-t  K 

« 

« 

ft 

< 

ft 

II  N 

ft  o 

ft 

w w 

« 

< 

* 

M M w 

w 

w 

« 

Q 

« 

ft 

ft 

Z II 

ft  < 

ft 

« 

K 

* 

w w X K V >-  O 

* 

Z 

* 

ft 

U) 

ft 

N 

ft  K 

ft 

u u u 

« 

if) 

* 

X o o o o o o 

« 

UJ 

« 

ft 

ft 

•-*  N 

ft  in 

ft 

^ M 

OJ 

o 


in 

o 

>0 


* 

« 

* 

* 

» 

* 


« 
« 


« 

* 

« 

« 

« 

* 

* 

« 

« 

« 


o 

^0 


O U U U (J 


ouuuoooououuu 


u o o o u 


u o u u u 


170 


stage  2.4.2  - CELL  DOES  NOT  FLOOD  - JUMP  TO  END  OF  LOOP 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


* 

^ < 

« 

• < z • 

Ui  UI 

« 

lO 

« 

« 

z 

« 

K • • 

UJ 

» 

* 

H-  < O 

• • 

« 

• 

« 

« 

J < 

» 

^ -1  O 

^ • 

« 

o u 

* 

-*  -J  • Z 

CM 

« 

« 

* 

I 

« 

UJ  ^ z o 

CM 

« 

z 

^ UI  < 

o 

« 

• 

« 

• 

o u 

# 

«-4  C ^ ^ 

O «-«• 

* 

ui  \r 

« 

->  o • 

IT  — 

« 

« 

« 

z 

« 

z z 

IT 

« 

Ui 

« 

• “> 

“5 

«• 

« 

« 

UJ  o 

* 

“>  *-7 

■> 

« 

» o 

« 

• » to  * K) 

* 

UJ 

« 

* 

• z 

« 

1-  ^ o 

• * 

« 

z 

* 

^ •H  T 

Ui  ^ II  ^ II 

« 

e 

« 

« 

< 

* 

^ -J  ^ 1- 

UI  ^ «o 

* 

o < 

« 

1-4  ^ ^ * 

2 1-4  IH  — > 

« 

< 

« 

# 

o 

« 

»-t  • 1-4  » 

Z »-4  II 

» 

H I 

* 

w • M ^ 

• w -■«  W A 

« 

1- 

* 

►-  z 

« 

^ xo 

• w ^ 

» 

o 

« 

O ^ ^4 

O O “> 

« 

tn 

« 

* 

o 

» 

O O ^ CD 

e>  ^ 

« 

Ui 

« 

< ^ o 

«-%<»<% 

* 

« 

« 

Ui  H 

« 

< fSJ  < w 

< "5 

* 

c o 

« 

^ fsl<  O 

'H  J 5^  J ic 

« 

u 

« 

» 

O I- 

« 

J M J O ^ 

4-4  _J  » 

* 

o z 

* 

li.  N-J  < 

♦ U •-*  u H4 

« 

o 

« 

« 

o o 

« 

U I U < 

♦ u 

* 

(J  < 

« 

»-•  1 U -1 

« 

« 

« 

U (C 

« 

•M  ^ if4 

-J  4-4  w 

* 

# 

* M IL 

» •.  o » e 

* 

o 

« 

* 

* 

^ II  u 

• % O 

« 

1 

« 

K5  “5  II  i-i 

^ fO  < 10  < 

« 

z 

# 

# 

1 

* 

ro  z ^ 4-4  • 

^ lO  < 

« 

* 

» * II 

l-t  * J J 

« 

Ui 

» 

* 

« 

• ^ II  o 

►4  • J 

« 

m 

* 

fO  w ^ 

wOUtOlL 

* 

« 

« 

« 

o % Z UI 

w o u 

« 

• 

* 

fO  ^ 

^ lO  K)  1-4 

« 

« 

« 

• 

« 

tn  ic  n “>  • 

IP  lO  ^4 

« 

* 

M ^ » 

< w » w % 

« 

1 

« 

« 

;»• 

* 

'Ni'  M * % 

* 

• 

« 

o ^ 

-1  O lO  Q K> 

* 

1 

« 

« 

• 

« 

Q ^ ^ X Z 

J O K> 

« 

CM 

« 

-1 1 

U -1  « -1 

* 

» 

* 

CM 

» 

J X 1-4 

u .r  • 

# 

« 

u.  ^ 

•-N  U O U fO 

» 

» 

« 

# 

w w «-  *-4 

•-4  U O 

* 

UJ 

« 

v&  o ^ 

fO  lO 

« 

X 

« 

* 

Ui 

* 

e o 

to 

* 

o 

« 

<^  •^  < < II 

« 

» 

* 

CD 

* 

N-  ^ < W 

II 

WWW 

» 

< 

« 

J ^ z 

o o 

« 

a 

« 

* 

< 

« 

•J  .1 

z 

o 

« 

# 

uu.uu.nuu.iU-1 

« 

z 

« 

« 

K 

« 

u u u u.  u 

'D  U U ^ 

» 

in 

« 

* 

UJ 

* 

» 

in 

« 

M H4  4-4  ^ 

»i4 

M M u 

U U <JO  u u 


o 


o 


<JOUUUUUUUUU(J(J 


u u 


171 


eflR  IF  ( FL0(33»3»1FLAG(IK.J) ) ,E0.  7 ) GO  TO  610 
FLD(33.3*IFLAG(IK,J))=3 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


» » 
* « 
* » 
* * 
« * 
« » 
« * 
« « 
« * 
* * 
« « 
* « 
« * 
* « 
« » 
« « 
» » 
# * 
« * 
* * 
* « 
« « 
« « 
* * 

^ « « 
« « 
o « « 
z » « 

IftJ  * « 
« « 


« 

« UJ  kJ  UJ 
» X X a 

* K •-  < 
« 

* Z O K 

* NH  I-  < 

* I 

* -J  h-  >- 
« LJ  liJ 

* > i/)  in 

* UJ  -I 

* -i  m j 

« I-I  UJ 

« cr  u 

* UJ  ^ 

* H UJ  I- 

« < > z 

* B UJ  UJ 

« J u 
« UJ  < 

* X or  -> 

* I-  u c 

* K < 
« in  < 

« C B UJ 

* Z I 


« 

« 

< 

« 

Q O' 

« 

« 

1- 

« 

« 

* 

O 

* 

• Z ^ 

• 

« 

* 

« c • 

« 

« 

>-  a 

« 

UJ  « < 

c 

« 

IT 

« 

o 

* Z J 

U< 

« 

• 

« 

« 

o 

« 

O K • • 

Ul 

« 

• 

« 

e 

* Ui  -1 

> 

« 

* 

« 

UJ  K 

« 

•-I  o 

• 

* 

« 

« UJ 

Ul 

« 

• 

* 

« 

oc 

« 

UJ  z o 

« 

• 

« 

* • U -i 

« 

CM 

« 

« 

UJ  2. 

O « <V) 

* 

CM 

* 

* 

* 

» 

« 

X O 

« 

0.  • 

« 

• 

• o c 

a 

« 

UJ 

« 

* 

tx. 

» 

“5  • 

■5 

* 

UJ 

« 

o 

* K Ui 

UJ 

* 

o 

« 

X u. 

* 

*.  K * ^ O 

• K) 

« 

ID 

« 

o 

♦ C H 

» 

< 

« 

* 

o 

« 

^ -1  ^ n H 

^ II 

« 

<. 

« 

o 

« UJ  o 

< 

« 

K 

» 

« 

d:  c 

» 

« 

K 

« 

• 

« o o 

B 

« 

in 

« 

« 

U.  UJ 

« 

W <4^  ^ O 

w «i^ 

« 

in 

« 

* o u 

» 

* 

» 

o 

« 

O C hh  o 

e “3 

* 

» 

• 

« U li. 

UJ  c 

« 

u. 

« 

« 

UJ  o 

« 

< M < w 

< ^ 

« 

u. 

« 

K 

« 

ID  Ul 

« 

c 

* 

« 

c*  o 

« 

-I  isj  -J  e 

« 

c 

« 

ID 

« UJ  >- 

« o 

« 

« 

« 

O -J 

« 

U.  1 u.  < 

u.  »-< 

* 

» 

• 

» X J 

a:  o 

« 

c 

« 

« 

u u. 

« 

^ ^ W 

1-4  w 

« 

o 

« H B 

UJ  c 

* 

z 

« 

« 

« 

•H  II  u. 

• o 

« 

z 

« 

* UJ  > _J 

« 

UJ 

« 

« 

1 

« 

m £1.  • 

lO  < 

« 

Ui 

* 

< 

« 1 z 

< u. 

* 

« 

* 

« 

• ^ II  o 

-J 

« 

« 

H 

« 

» 

* 

« 

in 

« 

o » 0.  ^ UJ 

K>  U. 

* 

« 

J 

« nO 

« 

1 

« 

« 

• 

« 

»OiC  ->  -5  • 

pn 

« 

1 

« 

Ul 

« • 

* 

1 

« 

« 

« 

« 

1 

« 

o 

* « 

« 

1 

* 

* 

• 

« 

O ^ ^ X 

Q PO 

« 

1 

« 

« • 

« 

« 

« 

CM 

« 

-1  X 

« 

« 

in 

« CM 

» 

« 

« 

« 

U.  W M 

u.  tn 

« 

« 

flO 

» 

« 

• 

-1 

« 

« 

Ul 

« 

ID  C 

fO 

« 

X 

« 

< 

« UJ 

» 

c- 

* 

* 

o 

* 

w w < < w 

II 

« 

« 

* ID 

« 

II 

o 

« 

* 

< 

« 

-1  J 

X 

Q 

« 

Q 

« 

« < 

« 

X 

z 

« 

« 

« 

U.lj.U.U.U.*)U.-l 

« 

z 

« 

u. 

* K 

D 

UJ 

• 

» 

in 

« 

H4  M N4 

»-« u. 

* 

UJ 

» 

» in 

« 

in 

o 

CO 

o 

CM 

NO 

nO 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

u 

c 

c 

c 

c 

c 

c 

c 

c 

u 

IF  ( D(IK1  rJ)  .LT.  0,  ) GO  TO  450 
SUM=H(IK1  ,J) 

IC=1 

450  IF  ( O(IK.JMI)  .LT.  0.  ) GO  TO  452 
SUM=SUM+H(IK»JM1) 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


» 

* 

» 

« 

* 

« 

« 

« 

* 

* 

« 

« 

« 

« 

* 

* 

* 

« 

* 

« 

* 

« 

« 

* 

« 

» 

« 

«■ 

* 

* 

* 

» 

* 

* 

« 

« 

« 

« 

* 

* 

« 

* 

* 

«• 

« 

* 

* 

« 

« 

« 

» 

* 

« 

4- 

« 

« 

« 

* 

* 

» 

* 

in 

» 

« 

* 

* 

« 

« 

* 

4-  4* 

« 

» 

« 

» 

« 

» 

# 

lO 

* 

« 

« 

* 

* 

* 

* 

40 

* 

« 

« 

« 

* 

* 

» 

H 

« 

* 

« 

» 

» 

* 

» 

O 

« 

» 

* 

« 

« 

« 

» 

1-0 

» 

* 

« 

» 

« 

» 

« 

o 

» 

» 

» 

« 

» 

» 

« 

o 

« 

* 

* 

« 

* 

« 

« 

O'- 

« 

* 

« 

« 

« 

« 

« 

* 

* 

« 

« 

» 

« 

* 

^ • 

* 

* 

* 

« 

« 

« 

« 

o 

« 

« 

« 

« 

» 

* 

» 

• 

« 

« 

« 

» 

« 

» 

« 

o • 

« 

« 

« 

« 

* 

* 

* 

•- 

« 

» 

» 

« 

z 

* 

« 

« 

• -I 

« 

« 

* 

« 

« 

« 

« 

H • 

« 

* 

* 

« 

o 

* 

« 

« 

_f 

« 

« 

« 

« 

z 

« 

* 

• ^ 

« 

O 

« 

« 

« 

kJ 

•» 

« 

« 

« 

« 

« 

« 

« 

* 

— z 

« 

c 

* 

* 

« 

* 

« 

» 

“D“D 

* 

z 

« 

» 

* 

1 

« 

« 

« 

« 

Ui 

* 

* 

IC 

« 

1 

* 

« 

« 

•Mat: 

# 

« 

« 

IT 

« 

1 

« 

« 

o 

« 

iM 

« 

« 

» 

« 

* 

« 

< 

« 

M w 

* 

1 

» 

« 

* 

« 

o 

« 

(L 

» 

'-'O 

» 

1 

« 

O 

« 

« 

>0 

« 

* 

c 

« 

1 

« 

K 

* 

• 

* 

« 

UJ 

» 

• 

« 

» 

« 

« 

o 

« 

u 

« 

»o 

* 

» 

« 

O 

« 

• 

* 

H 

» 

< 

» 

cz 

« 

4 

* 

o 

« 

o 

« 

CM 

« 

* o: 

« 

z < 

« 

• 

« 

o 

« 

• 

* 

c 

« 

K 

• 

< • 

« 

CM 

« 

<r 

« 

« 

bJ 

« 

10 

* 

« 

# 

« 

* 

« 

O 

* 

« 

(T 

« 

» 

UI 

* 

O 

* 

• 

« 

< 

« 

A 

« 

O # 

^ w 

» 

o 

« 

H 

* 

o 

* 

f- 

« 

« IL 

« 

“DZ 

« 

< 

« 

* 

* 

1/) 

» 

• 

* 

* 

^ “D 

« 

1- 

« 

O 

« 

• 

« 

» 

o 

* 

» 

« 

\A 

« 

o 

* 

H 

« 

U. 

» 

N 

« o 

» 

a^  ^ — 

* 

« 

« 

-1 

« 

o 

* 

KJ 

• 

« 

UJ 

«■ 

•M  iM  rsi 

« 

U. 

« 

« 

• ^ 

* 

* 

1 

UJ 

» z 

« 

«■ 

O 

« 

« 

a 

« 

c 

« 

« 

u 

« 

KNJ  “D 

« 

« 

o 

« 

« 

z 

« 

“D 

• 

« 

« 

4b 

« 

o 

* 

l/> 

« 

« 

UJ 

« 

* 

1 

« 

• • it 

« 

z 

« 

4 • 

« 

a ^ 

* 

« 

^ (/) 

* 

* 

HI- 

* 

UJ 

* 

H O 

* 

“DIM 

z 

* 

* 

•M  <-D 

« 

h- 

* 

<r>0 

* 

« 

^ UJ 

* 

» w U 

« 

1 

* 

w 

H- 

4b 

* 

• 

« 

• • UJ 

« 

1 

« 

UJ  • 

« 

St  I ►«  U) 

* 

1 

* 

X u ^ 

* 

« 

o u 

» 

1 

* 

o 

« 

»M  + V 

II 

« 

1 

» 

II 

UJ 

« 

• 

« 

Z Z 4 < UI 

« 

* 

o 

« 

^ X ^ s 

« 

« 

o 

» 

CM 

« 

3 D O a D 

« 

« 

II  CD 

« 

4> 

O 3 -f  D “D 

» 

« 

T 

II  o 

* 

« 

K Z 

« 

o 

« 

« 

U 

U 4/) 

* 

z 

» 

< 

» Ui 

« 

O IM 

« 

« 

< 

« 

^ IP  »-•  II 

• 

» 

5^  1- 

w 

» 

O 

» 

w w H U H 

* 

Q 

» 

H *- 

« 

ii 

Z II  Z 

« 

o 

« 

« 

< 

« 

-1  Z 

» 

z 

« 

« 

u 

u.  =>  u 

w 

« 

z 

* 

UJ  u. 

« 

H 

* 

U.  u.  o < o 

« 

UI 

« 

UJ  U. 

« 

IM  i/)  1-4  V) 

X 

« 

UJ 

* 

Q 0*M 

» 

in  ♦ 

•M  1-4  O U U 

« 

« 

O 

« 

CM  lO 

4 O 

IT) 

m m 

tf>  4 

m 

4 O 

4 

« 

* 

» 


ou  uu  u u u 


u u o u o 


uuuuuou  ououu 


173 


STAGF  3.0  - THE  LOOP  TO  700  CHECKS  CELLS  IN  THE  ROW  WITH  JrJMAX 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


c o 
II  II 

o z 

O ”3 


» 

« 

» 

* 

« 

* 

* 

* 

» 

» 

* 

« 

* 

« 

o 

* 

* 

« 

* 

* 

« 

* 

* 

in 

« 

« 

» 

« 

« 

« 

« 

* 

X 

* 

» 

« 

« 

* 

* 

« 

« 

< 

• 

« 

o 

* 

* 

* 

« 

* 

« 

z 

o 

« 

z 

« 

« 

« 

* 

« 

* 

* 

3 

z 

« 

< 

* 

» 

» 

* 

« 

* 

« 

* 

< 

* 

» 

* 

« 

# 

* 

UJ 

# 

• 

* in 

* 

♦ >- 

* 

* 

in  * 

* 

o 

* 

w 

« 

I 

* 

* tr 

» 

» 

o » 

« 

» 

o 

X 

« 

« 

* o 

* 

« 

o 

* 

« 

Ui 

» 

< 

3 

« 0. 

* 

« 

» 

« 

o 

* 

«- 

X 

* 

-1 

« 

Ui 

* 

* in 

* 

» 

-1  * 

* 

K 

« 

u. 

H4 

« 

o 

« 

« >- 

* 

» 

u. 

« 

» 

« 

w 

» 

« 

« < 

« 

» 

* 

» 

u. 

* 

II 

o 

» 

o 

* 

* 3 

» 

* 

K 

« 

» 

»-<  >• 

« 

0m, 

< 

« 

z 

« 

* -j 

« 

* 

w 

« 

« 

* 

X 

* 

< 

* 

« < 

* 

* 

* 

« 

in  o 

» 

< 

u. 

« 

* 

* 

« 

o 

» 

u. 

« 

« 

^ z 

« 

z 

•-« 

« 

« 

* (T 

« 

o 

« 

« 

« 

O »-4 

« 

3 

11 

« 

o 

« 

# O 

* 

h- 

« 

* 

« 

UJ  Q 

« 

* 

«— 

« 

«— 

« 

« 

« 

« 

UJ 

« 

« 

X K 

« 

X 

« 

* 

« o 

* 

o 

» 

LJ 

* 

* 

o o 

* 

3 

* 

o 

« 

« UJ 

« 

H 

« 

in 

« 

* 

u 

« 

ID 

« 

oc 

» 

♦ c 

* 

« 

¥ 

« 

• o 

* 

« 

•— 

« 

UJ 

•# 

♦ o 

« 

O 

« 

o 

« 

♦ 

0.  < 

« 

-J 

w 

* Si 

* 

* o 

« 

o 

* 

H 

« 

o 

« 

« 

U 

e X 

« 

« 

* -1 

« 

* 

« 

in 

« 

o in 

* 

<£  in  in 

« 

c 

« 

« u. 

« 

« 

a 

« 

« 

z o 

« 

o 

-J  < 

« 

K 

« 

* 

* 

» 

z 

» 

« 

UJ  < 

« 

o 

u z • 

« 

« 

• 

* 

* in 

» 

« 

D ♦ 

o 

« 

•*  -J 

« 

r- 

•1  tr 

or 

« 

in  o 

« 

♦ >- 

* 

« 

“3 

» 

K 

« 

u. 

« 

lO 

*0 

o 

« 

2 

o 

«- 

« < 

* 

* 

* 

« 

« 

o 

« 

o 

K)  a • o 

• 

* 

o 

o 

* 

» :s 

« 

e 

* 

in 

« 

O 

« 

»-  in 

« 

H 

• 

o ^ 

« 

-J 

w 

« 

♦ -j 

♦ 

UJ 

» 

UI 

« 

o 

« 

u; 

« 

o 

• • ^ 

0^ 

# u 

1 

« 

* < 

* 

* 

>- 

« 

« 

Ui  ID 

« 

O 

UJ 

C X • 

X 

« 

« 

« 

« 

« 

« 

» 

q:  z 

« 

ID 

• 

Ui  ^ < or 

< 

« 

UJ  o 

* 

# in 

* 

» 

u 

« 

« 

UJ  < 

* 

A 

• X z o z 

« 

•- 

* 

« 

# 

« 

» 

* 

1 1 

» 

0^ 

<3  • 

3 

* 

< 

« 

* 

* 

X 

« 

* 

K) 

« 

o 

« 

X 

^ S;  • 

•k 

* 

1-4  in 

« 

« j 

« 

< 

* 

• 

« 

€V* 

« 

5 

« 

< 

< 

— 3 

« 

cr 

-1 

« 

« -1 

* 

z 

« 

« 

« 

o o 

« 

K 

z 

^•.£>4  0. 

« 

CL  UJ  * 

« U) 

* 

“3 

* 

> 

« 

• 

« 

tt  z 

« 

3 

3 •-»  ^4  St 

N4 

» 

o 

> 

« 

* u 

* 

« 

CE 

« 

UI 

« 

u.  < 

« 

UJ 

•.  w w -J 

« 

(r  id 

« 

« 

« 

* 

O ♦ 

c 

* 

« 

c 

•-4  e ID  » 

o 

« (L 

-1 

« 

« u. 

* 

w 

» 

« 

• 

« 

UJ  CL 

* 

^ 

< 

» 

CL 

» 

« 1-4 

« 

O 

* 

-J 

« 

» 

O 3 

« 

• 

e 

ID  -1  -I 

-1 

« 

< 

o: 

« 

« 

« 

< 

« 

« 

« 

O 

« 

< 

< U U (D  U 

» 

UI 

* 

* X 

« 

J 

« 

UJ 

* 

X 

* 

o in 

« 

ID 

-1 

» 

1- 

1- 

« 

♦ u 

« 

u. 

« 

u 

* 

< 

UJ 

« 

• 

u 

U.  II  -J 

II 

* UJ  < 

« 

« ui 

« 

« 

« 

z 

* 

U:  ^ 

« 

1-4  II  U 

0m, 

* 

in 

X 

« 

* z 

« 

* 

« 

in  ♦ 

"3 

« 

X a 

« 

* 

••  X i-» 

X 

« 

» 

* u 

« 

« 

« 

* 

•-  o 

» 

X 

lO 

fO  ^ < II 

* 

1 

* 

* 

« 

«k 

« 

» 

« 

« 

< 

» X z *- 

z 

* 

« 

« 1 

« 

r- 

* 

1 

« 

w 

* 

1 

« 

z 

o 

lO  < 3 --f  3 

« 

•4 

* 

« 

» 

« 

« 

o 

» 

« 

-) 

lO 

in  K)  z •-  X 

% 

« 

• 

« 

« «-l 

« 

« 

<M  ♦ 

< 

« 

#n 

« 

in 

-^3  4-13 

* 

lO 

* 

» • 

* 

o 

« 

• 

J 

« 

• 

* 

^ UJ 

o 

O •>  Z •> 

X 

« 

• 

» 

♦ lO 

« 

_i 

« 

lO 

« 

u 

» 

in 

« 

w 

3-1 

J ^ M M 

N4 

* 

lO 

« 

* 

« 

u. 

« 

« 

N4 

« 

« 

o z u 

• 

It  w w w 

w 

* 

« 

# UJ 

* 

« 

UJ 

# 

» 

UJ 

» 

h4 

c 

O ID  ID  O 

» 

UJ 

* 

« o 

« 

w 

« 

o 

« 

w 

« 

o 

» 

w 

*- 

z 

^ < < < 

< 

« 

ID 

« 

* < 

« 

* 

< 

» 

» 

< 

* 

z 

< 

-1  -1  -1 

-1 

« 

< 

* 

♦ H 

« 

u. 

« 

» 

u. 

« 

K 

* 

u o u 

• U.  U a.  U.  U. 

« 

» 

« in 

« 

* 

in  # 

« 

in 

» 

M 

u> 

N4 

1-4  1-4  M N4 

H4 

* 

in 

« 

o 

• • II 

o o • 

II  II  X o 
< II 
X X S. 

Z Z •>  X 
^ 

^ z •* 


X X K >- 

c o o o 


uuuoo  uouuu  oouoouuo 


u u u o u u 


174 


D(I* JMAX)=-1000 
H(I»JMAX)=-1P00 


AD-A052  799  TRACOR  INC  AUSTIN  TEX  F/6  8/8 

COMPARISON  OF  NUMERICAL  AND  PHYSICAL  HYDRAULIC  MODELS*  MASONBOM — ETC(U) 
JUN  77  R J CHEN*  L A HEMBREE  DACM72-72-C-0029 

CERC-6ITI-6-APP-3  NL 


UNCLASSIFIED 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  M3D 


IF  ( .LT.  DELTA  ) GO  TO  660 

IFLA6(IM1*JMAX)=IFLAG(IMI,JMAX)  .and.  504 
IFLA6(I»JMAX)=IFLAGHidMAX)  .AND.  191 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


« 

* 

* 

ft 

ft 

ft 

ft 

* 

* 

* 

# 

ft 

ft 

ft 

ft 

» 

« 

* 

ft 

ft 

ft 

ft 

ft 

» 

« 

* 

ft 

ft 

ft 

ft 

ft 

« 

* 

• 

(/) 

ft 

ft 

ft 

ft 

ft 

* 

* 

* 

-1 

ft 

ft 

ft 

ft 

ft 

« 

* 

* 

Ui 

ft 

ft 

ft 

ft 

ft 

« 

« 

« 

> 

ft 

ft 

ft 

ft 

ft 

* 

» 

* 

UJ 

ft 

ft 

ft 

ft 

ft 

* 

« 

« 

ft 

ft 

ft 

ft 

ft 

* 

» 

« 

ft 

ft 

ft 

ft 

ft 

* 

» 

* 

a: 

ft 

« 

ft 

ft 

ft 

« 

* 

« 

UJ 

ft 

ft 

ft 

ft 

ft 

» 

* 

« 

K 

ft 

ft 

ft 

ft 

ft 

* 

« 

« 

< 

ft 

ft 

ft 

ft 

ft 

» 

» 

» 

9 

ft 

ft 

ft 

ft 

ft 

« 

« 

» 

ft 

ft 

ft 

ft 

ft 

* 

• 

* 

X 

ft 

ft 

ft 

ft 

ft 

» 

« 

* 

UJ 

ft 

ft 

ft 

ft 

ft 

« 

« 

« 

r 

ft 

ft 

ft 

ft 

ft 

« 

* 

» 

ft 

ft 

ft 

ft 

ft 

« 

« 

* 

ift 

ft 

ft 

ft 

ft 

ft 

« 

« 

• 

o 

ft 

ft 

ft 

ft 

ft 

« 

« 

« 

z 

ft 

ft 

ft 

ft 

ft 

» 

K 

« 

» 

ft 

ft 

ft 

ft 

ft 

« 

« 

* 

u. 

ft 

ft 

ft 

ft 

ft 

« 

O 

« 

* 

ft 

ft 

D 

ft 

ft 

ft 

« 

z 

» 

« 

* 

ft 

ft 

ft 

ft 

ft 

* 

UJ 

• 

• 

z> 

ft 

ft 

O 

ft 

ft 

ft 

fSJ 

# 

• 

• 

ft 

ft 

z 

ft 

ft 

ft 

« 

« 

« 

o 

ft 

o 

K) 

ft 

UJ 

ft 

ft 

ft 

X 

« 

1 

# 

« 

z 

ft 

h* 

ft 

ft 

ft 

ft 

< 

« 

1 

« 

* 

UJ 

ft 

ft 

ft 

ft 

X 

ft 

z 

« 

1 

« 

« 

ft 

ft 

1 

ft 

ft 

u 

ft 

T 

« 

« 

* 

ft 

o 

r* 

o 

ft 

1 

ft 

ft 

< 

ft 

« 

* 

• 

o 

ft 

K 

H 

ft 

ft 

ft 

(D 

ft 

IT 

« 

H 

ft 

ft 

ft 

ft 

ft 

» 

• 

« 

« 

ft 

O 

o 

o 

ft 

>0 

ft 

ft  UJ 

ft 

W 

» 

• 

« 

UJ 

ft 

o 

»• 

o 

ft 

• 

ft 

ft 

u 

ft 

O UJ 

» 

» 

# 

* 

a 

ft 

ft 

ft 

ft 

< 

ft 

K U 

« 

lO 

* 

« 

UJ 

ft 

o 

ft 

• 

ft 

ft 

a 

ft 

< 

« 

« 

« 

z 

ft 

e 

ft 

rr 

ft 

ft 

h- 

ft 

o a 

* 

UJ 

* 

« 

ft 

o 

• 

ft 

ft 

ft 

ft 

O K 

« 

e 

« 

« 

z 

ft 

o 

ft 

Ui 

ft 

ft 

a 

ft 

« 

< 

« 

« 

o 

ft 

• 

A 

ISJ 

ft 

o 

ft 

ft 

o 

ft 

^ -J 

« 

« 

• 

a 

ft 

h- 

• 

• 

N 

ft 

< 

ft 

ft  Ci. 

ft 

* 

i/) 

« 

* 

u. 

ft 

o 

K 

1 

ft 

H 

ft 

ft 

ft 

• < 

« 

* 

« 

ft 

• 

ft 

IT 

ft 

ft 

X 

ft 

o o 

« 

U. 

« 

« 

UJ 

ft 

• 

• X 

X 

ft 

ft 

ft  u 

ft 

* 

c 

« 

« 

c 

ft 

< 

ft 

IL 

ft 

ft 

UJ  ft 

• 

« 

* 

* 

o 

ft 

X 

^ ^ z 

u z 

ft 

O 

ft 

ft  I 

ft 

UJ 

« 

c 

« 

« 

u 

ft 

< 

• 

^ XT 

ft 

ft 

ft 

u 

ft 

J ^ 

* 

z 

« 

« 

ft 

Z X 

X < * 

* 

ft 

9 

ft 

ft 

ft 

• 

• 

UJ 

* 

* 

1 

ft 

< 

T Z ^ 

z 

ft 

z 

ft 

ft 

1 

ft 

• 

» 

« 

« 

ft 

« z 

- T CL 

w 

ft 

UJ 

ft 

in 

ft 

ft 

^ o 

• 

* 

• 

ft 

^ “) 

^ M 

O)  I 

ft 

ft 

< 

ft 

ft 

X Uj 

« 

1 

• 

« 

• 

ft 

z • 

“5 

^ ^ w 

II 

II 

ft 

1 

ft 

ft 

• 

ft 

T • 

* 

1 

* 

• 

ft 

X ax 

A 

ft 

1 

ft 

ft 

4- 

ft 

» 

« 

1 

« 

« 

• 

ft 

w z 

♦ ♦ 

X 

X 

ft 

1 

ft 

UJ 

ft 

• 

ft 

^ o 

» 

« 

« 

fO 

ft 

c 

w 

Z ^ z ^ 

< 

< 

ft 

ft 

o 

ft 

»o 

ft 

w O 

« 

» 

« 

ft 

• 

O D ♦ O D ♦ 

z 

z 

ft 

ft 

II 

ft 

ft 

o 

« 

« 

« 

Ui 

ft 

o 

z 

t/J  U U T T 

« 

3 

ft 

< 

ft 

UJ 

ft 

# 

« 

« 

o 

ft 

o 

II 

II  ^ 

W 

II  t-4  w II 

* 

• 

ft 

ft 

►- 

ft 

o 

ft 

w ^ 

* 

o 

« 

« 

< 

ft 

M 

Z U.  Z II 

Z II  z 

11 

M 

ft 

o 

ft 

ft 

< 

ft 

« 

z 

• 

• 

K 

ft 

U D 

M D U U. 

o uu.  z 

u 

w 

ft 

z 

ft 

UJ 

ft 

K 

ft 

u.  u. 

* 

UJ 

« 

« 

i/) 

ft 

X o 

ft 

UJ 

ft 

o 

ft 

in  ft 

(M  O lO 

O'  f**  N 

«0  ^ 


uuuuouuouuu  uoouuuu  uuoou  uuuu 


177 


**«*«*«*****••*««**«*••*«***«««*««****«•*«********«***««*****•«*** 


TABLE  5.3  - continued 
LISTING  OF  SUBROUTINE  MOD 


# 

« 

« 

« 

ft 

ft 

ft 

ft 

ft 

ft 

X 

4 

7 

• 

« 

« 

« 

ft 

ft 

ft 

ft 

ft 

o 

ft 

■3 

# 

* 

• 

« 

ft 

ft 

ft 

ft 

ft 

z 

ft 

* 

X 

# 

* 

* 

» 

ft 

ft 

ft 

ft 

ft 

4 

ft 

X 

4 

« 

« 

« 

ft 

ft 

ft 

ft 

ft 

ft 

4 

7 

* 

* 

« 

« 

ft 

ft 

ft 

ft 

ft 

0. 

ft 

7 

* 

« 

« 

* 

ft 

ft 

ft 

ft 

ft 

D 

ft 

»•» 

* 

• 

« 

* 

ft 

ft 

ft 

ft 

ft 

ft 

w 

O 

« 

« 

« 

ft 

ft 

ft 

ft 

ft 

in 

ft 

O 

4 

# 

« 

« 

* 

ft 

ft 

ft 

ft 

ft 

Uj 

ft 

4 

J 

» 

« 

« 

# 

ft 

ft 

ft 

ft 

ft 

ft 

J 

U. 

* 

« 

* 

ft 

ft 

ft  \A 

ft 

ft 

a: 

ft 

U. 

» 

• 

* 

* 

ft 

ft 

ft 

o 

ft 

ft 

o 

ft 

M 

« 

* 

* 

« 

ft 

ft 

ft 

o 

ft 

ft 

ft 

II 

A 

« 

* 

» 

» 

ft 

ft 

ft 

o 

ft 

ft 

ft 

X 

» 

» 

« 

* 

ft 

ft 

ft 

ft 

ft 

ft 

X 

4 

« 

« 

* 

* 

ft 

ft 

o 

ft 

u. 

ft 

ft 

UJ 

ft 

4 

7 

« 

* 

« 

» 

ft 

ft 

o 

ft 

ft 

ft 

u 

ft 

7 

•3 

« 

* 

* 

* 

ft 

ft 

CO 

ft 

H 

ft 

ft 

ft 

* 

« 

* 

» 

« 

ft 

ft 

ft 

ft 

ft 

u. 

ft 

* 

X 

« 

• 

« 

* 

ft 

>“ 

ft 

o 

ft 

ft 

ft 

ft 

X 

4 

* 

« 

« 

« 

ft 

q: 

ft 

K 

ft 

u. 

ft 

ft 

ft 

4 

7 

# 

« 

« 

« 

ft 

O 

ft 

ft 

ft 

ft 

in 

ft 

7 

# 

* 

« 

« 

ft 

ft 

O 

ft 

ft 

ft 

X 

ft 

X 

« 

« 

« 

« 

ft  vn 

ft 

o 

ft 

UJ 

ft 

O 

ft 

o 

ft 

w 

O 

m 

« 

« 

« 

« 

ft 

>■ 

ft 

ft 

U! 

ft 

IT 

ft 

Ui 

ft 

C* 

4 

4 

« 

* 

» 

« 

ft 

< 

ft 

ft 

1/) 

ft 

r* 

ft 

I 

ft 

O 4 

-1 

7 

* 

« 

« 

» 

ft 

ft 

ft 

ft 

ft 

o 

ft 

O -J 

u. 

c 

« 

* 

« 

* 

ft 

-1 

ft 

ft 

o 

ft 

c 

ft 

>- 

ft 

oc  u 

• 

in 

4 

« 

« 

« 

« 

ft 

< 

ft 

ft 

1- 

ft 

K 

ft 

• -1 

ft 

(X 

* 

« 

* 

ft 

ft 

• 

ft 

ft 

ft 

X u. 

ft 

o ^ 

K) 

O 

• 

• 

# 

* 

« 

« 

ft 

oc 

ft 

o 

ft 

a 

ft 

O 

ft 

A 

ft 

• 

a 

tt 

» 

« 

« 

■» 

ft  o 

ft 

UJ 

ft 

7 

ft 

o 

ft 

o 

ft 

• 

o 

O 

« 

« 

« 

X 

« 

ft 

ft 

ft 

ft 

ft 

z o 

ft 

o • 

C 

• 

• 

« 

« 

« 

< 

« 

ft 

o 

ft 

ft  ^ 

ft 

ft 

UI  or 

ft 

o o 

UJ 

X 

« 

« 

« 

s 

* 

ft 

UJ 

ft 

A 

ft 

ft 

ft 

• o 

ft 

UJ 

• 

4 

« 

« 

« 

“5 

« 

ft 

c 

ft 

ft 

%A 

ft 

ft 

u 

ft 

^ • 

A 

7 

X 

» 

* 

* 

« 

ft 

o 

ft 

X 

ft 

UJ 

ft 

K> 

ft 

o o 

ft 

«— 

-3 

4 

X 

» 

* 

• 

X 

« 

ft 

o 

ft 

4 

ft 

>- 

ft 

<NJ 

ft 

1-  4 

ft 

4 

X 

% 

7 

“3 

« 

* 

« 

< 

« 

ft 

_l 

ft 

7 

ft 

ft 

ft 

ft 

H X 

4 

X ^ 

« 

* 

« 

« 

ft 

u. 

ft 

ft  u 

ft 

• 

ft 

UJ  m 

ft 

-1  4 

7 

4 

X 

« 

• 

• 

« 

ft 

ft 

ft 

ft 

u; 

ft 

a e 

ft 

UJ  7 

“3 

7 

4 

« 

* 

« 

« 

ft 

iA 

ft 

X 

ft 

ft 

o 

ft 

UJ  4 

ft 

O *3 

X 

7 

« 

« 

« 

« 

ft 

>- 

ft 

4 

ft 

1 

ft 

• 

ft 

X -J 

ft 

X 

« 

« 

« 

« 

ft 

< 

ft 

7 

ft 

ft 

ft 

u. 

ft 

• X 

4 

ID 

« 

« 

« 

« 

ft 

ft 

ft 

X 

ft 

ft 

7 

ft 

►-  4 

7 

4 

ID 

ID 

• 

» 

« 

UJ 

* 

ft 

_J 

ft 

ft 

(T 

ft 

X 

ft 

q:  m 

ft 

O 7 

J 

4 

4 

« 

« 

u 

« 

ft 

4 

ft 

o 

ft 

C 

ft 

4 

ft 

C UJ 

ft 

• 

w 

U 

J 

« 

« 

« 

« 

ft 

ft 

4 

ft 

ft 

7 

ft 

U.  ID 

ft 

o 

►-•  u. 

U. 

« 

« 

« 

X 

» 

ft 

K 

ft 

ft 

K 

ft 

"5 

ft 

Z 

ft 

— e 

< 

II 

« 

« 

« 

o 

ft 

ft 

ft 

U. 

ft 

ft 

* 

ft 

UJ  4 

ft 

X 4 

II 

II 

• 

• 

« 

* 

« 

UJ 

ft 

ft 

ft 

ft 

ft 

X 

ft 

O I 

ft 

4 ^ 

u. 

in  X 

c 

c- 

• 

* 

* 

« 

X 

ft 

ft 

{A 

ft 

ft 

ft 

4 

ft 

o u 

ft 

7 U 

in  4 

X 

II 

II 

o 

» 

* 

« 

u 

ft  < 

ft 

ft 

ft 

ft 

7 

ft 

o 

ft 

“3 

3 

3 7 

4 

X 

II 

« 

» 

« 

ft  H 

ft 

ft 

ft 

ft 

ft 

ft 

* » 

O 

to 

“3 

7 

T X 

X 

« 

« 

* 

1 

* J 

ft 

1 

ft 

r- 

ft 

1 

ft 

w 

ft 

1 

ft 

X lO 

ID 

* 

• 

* 

“3 

4 

4 

X 

» 

« 

« 

ft  UJ 

ft 

ft 

OJ 

ft 

ft 

o 

ft 

ft 

4 » 

O O X 

* 

X 7 

7 

4 

* 

* 

# 

o 

ft  o 

ft 

ft 

ft 

(NJ 

ft 

4 

ft 

tn 

ft 

7 to 

• 

to 

4 

4 -3 

“3  7 

« 

« 

UJ 

« 

• 

ft 

ft 

• 

ft 

o 

ft 

• 

ft 

ft 

• 

ft 

^ to  Q 

w 

4 7 

X 

7 

* 

“3 

« 

« 

2 

« 

ft  II 

ft 

ft 

ft 

ft 

U. 

ft 

3- 

ft 

o 

• 

X 

X 

« 

« 

z 

• 

ft 

ft 

ft 

u. 

ft 

ft 

ft 

ft 

o o 

4 ^ 

W 

w 

4 

4 

« 

« 

« 

UJ 

ft  < 

ft 

Uj 

ft 

ft 

Uj 

ft 

ft 

UI 

ft 

_J 

• 

Ik 

ID  ID 

O 

7 

7 

X 

« 

« 

H 

* 

o 

ft  h- 

ft 

ft 

w 

ft 

O 

ft 

w 

ft 

o 

ft 

W u. 

«>>i» 

X 

4 

4 

4 

M 

♦ 

» 

« 

< 

ft  J 

ft 

< 

ft 

ft 

4 

ft 

ft 

4 

ft 

w 

4 J 

J 

J 

»»«' 

« 

« 

O 

* 

ft  UJ 

ft 

w 

ft 

u. 

ft 

H- 

ft 

u. 

ft 

►- 

ft 

u.  u. 

X 

u. 

7 U. 

U. 

U. 

X 

X 

« 

« 

u 

« 

yi 

ft  o 

ft 

{A 

ft 

ft 

1/) 

ft 

ft 

in 

ft 

4 

“3  »-< 

o 

o o 

uuoo  uuouuu  uuuou  ouuuu  oououuuu 


178 


« 

« 

« 

ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

« 

» 

ft 

ft 

ft 

ft 

* 

* 

» 

ft 

ft 

ft 

ft 

« 

» 

ft 

ft 

ft 

ft 

« 

« 

« 

o 

ft 

ft 

ft 

ft 

« 

« 

* 

ft 

ft 

ft 

ft 

« 

* 

* 

< 

ft 

ft 

ft 

ft 

« 

« 

« 

ft 

ft 

ft 

ft 

« 

* 

« 

t/> 

ft 

ft 

ft 

ft 

» 

» 

# 

o 

ft 

ft 

ft 

ft 

« 

« 

o 

ft 

ft 

ft 

ft 

« 

* 

« 

o 

ft 

o 

ft 

ft 

ft 

# 

* 

» 

ft 

o 

ft 

ft 

ft 

» 

« 

u. 

ft 

CO 

ft 

ft 

ft 

* 

* 

ft 

ft 

ft 

ft 

* 

« 

« 

ft 

O O o 

ft 

ft 

ft 

# 

« 

« 

ft 

H ^0  O 

ft 

ft 

ft 

« 

« 

» 

hi 

ft 

N CO 

ft 

ft 

ft 

« 

* 

o 

ft 

o 

ft 

ft 

ft 

« 

» 

» 

ft 

o o o 

ft 

ft 

ft 

* 

* 

« 

h. 

ft 

1-  N 

ft 

ft 

ft 

« 

* 

« 

M 

ft 

ft 

ft 

ft 

« 

II- 

ft 

^ o o 

ft 

ft 

ft 

T1  T 

# 

« 

« 

in 

ft 

< (Mr  o o 

ft 

ft 

ft 

« 

* 

« 

X 

ft 

►-  ® IT  nO 

ft 

ft 

ft 

• 

X 

« 

« 

u 

ft 

-/  4 in  ^ 

ft 

X 

ft 

ft 

c s 

« 

* 

« 

UJ 

ft 

UJ  <\J  d-  • . 

ft 

ft 

ft 

« 

c 

• 

ft 

I N 

ft 

a ac  N N 

ft 

o 

ft 

ft 

« 

ft 

u -i 

ft 

• • z z 

ft 

z 

ft 

ft 

c S 

« 

Ui 

« 

ft 

o 

ft 

•oo<<x  • • 

ft 

UJ 

ft 

ft 

« 

« 

ft 

>-  z 

ft 

KZZ**<  O C 

ft 

ft 

ft 

« 

« 

ft 

M 

ft 

^ < < Z UJ  UJ 

ft 

ft 

ft 

* 

1 

• 

ft 

o c 

ft 

• • • 

ft 

1 

ft 

ft 

1 5 

« 

1 

• 

ft 

z tr 

ft 

X X • 

ft 

1 

ft 

ft 

« 

1 

« 

ft 

UJ  o 

ft 

ft 

1 

ft 

ft 

« 

« 

ft 

o 

ft 

ft 

ft 

ft 

« 

« 

ft 

o o 

ft 

X<X“>“DZ  X X 

ft 

ft 

ft 

« 

lO 

* 

ft 

K < 

ft 

<fO<ro 

ft 

4 

ft 

ft 

« 

• 

« 

ft 

ft 

Z-J-XX*-^  ZIIZII 

ft 

• 

ft 

ft 

« 

« 

ft 

UJ  in 

ft 

ft 

4 

ft 

ft 

« 

* 

ft 

ct  e 

ft 

»M<ZZI 

ft 

ft 

ft 

« 

UJ 

« 

ft 

UJ  < 

ft 

xxz«-«*^*-^xxxx 

ft 

UJ 

ft 

ft 

3 El 

« 

e 

« 

ft 

Z -I 

ft 

<IMMWWKX<<<< 

ft 

o 

ft 

ft 

« 

< 

« 

ft 

u. 

ft 

S'wwOO<<ZZZZ 

ft 

< 

ft 

ft 

» 

K 

« 

ft 

z 

ft 

ft 

K 

ft 

ft 

« 

I/I 

« 

ft 

o in 

ft 

ft 

in 

ft 

ft 

• 

• 

« 

« 

ft 

a UJ 

ft 

rsj^^iLU.  • •oxex 

ft 

ft 

ft 

o 

o 

« 

U. 

« 

ft 

u.  o 

ft 

1 u.u.^*^^**<®<<® 

ft 

u. 

ft 

ft 

c 

o 

c 

« 

ft 

7 

ft 

^MMlI  llXX-iZJZ 

ft 

c 

ft 

ft 

o 

o 

« 

« 

ft 

Ul  < 

ft 

X II  II-^.-.mmU.i-^U.*-' 

ft 

ft 

ft 

• w 

• 

c 

* 

ft 

o z 

ft 

ft 

c 

ft 

ft 

o • 

1 

* 

z 

• 

ft 

o u 

ft 

zx.H«i<xz  *0  »e> 

ft 

z 

ft 

ft 

M II 

II 

« 

hi 

« 

ft 

u 

ft 

o<xzziiiiin<io< 

ft 

UJ 

ft 

ft 

• 

* 

ft 

ft 

»XT>-3  — ~ .J 

ft 

ft 

ft 

•H  X 

X 

* 

• 

ft 

• 

ft 

M-)  » •XXIOU.OU. 

ft 

ft 

ft 

^ < 

< 

« 

1 

• 

ft 

ft 

iC  •XXX<<IO>-ilO« 

ft 

1 

ft 

ft 

"5  a. 

z 

o 

1 

* 

ft 

ft 

ft 

1 

ft 

ft 

• “>“5  0 

« 

1 

« 

ft 

• 

ft 

w^SiXZO-JOiOOiO 

ft 

1 

ft 

Ul 

ft 

X » 

* 

a 

« 

« 

ft 

4* 

ft 

XflMIII-l  • «_|  »_J  • 

ft 

ft 

ft 

< X 

X 

« 

« 

ft 

ft 

ft 

ft 

z 

ft 

a < 

o 

* 

X 

« 

ft 

u 

ft 

ococ<<  »o 

ft 

X 

ft 

M 

ft 

z 

z 

« 

» 

ft 

o 

ft 

w<<<<XX'-'^-''-' 

ft 

ft 

N 

ft 

w 

Mi 

« 

o 

« 

ft 

< 

ft 

Q Q 

ft 

o 

ft 

z 

ft 

N W 

o 

« 

z 

« 

ft 

ft 

U.U.U.U.U.^'-'U.mIU.^ 

ft 

z 

ft 

o 

ft 

O O X 

o 

« 

UJ 

# 

ft 

in 

ft 

mmmmmOZ^Ul^U. 

ft 

UJ 

ft 

u 

ft 

# 

* 

* 

* 

« 


« 

« 

* 

* 

* 

* 

« 

« 

* 

« 

« 

« 

« 

« 

« 

* 

« 

« 

* 

# 

« 

* 

« 


o o o 

ir>  <0  o 

Nr® 


uouuuuuuuuoou 


oououuu  ouuuo 


179 


stage  5.0  - CHECK  FOR  CALL  TO  MODPRI 


FIG.  5, 


3 FLOW  CHART  FOR  SUBROUTINE  MOD 
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FIG.  5 
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ZERO,  AND  DEPTH  AND  WATER 
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FIG,  5.3  (Continued)  FLOW  CHART  FOR  SUBROUTINE  MOD 
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FIG.  5.3  (Continued)  FLOW  CHART  FOR  SUBROUTINE  MOD 
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STAGE  2.4.4 


STAGE  2.4.5 


FIG.  5.3  (Continued)  FLOW  CHART  FOR  SUBROUTINE  MOD 
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STAGE  3.4.1 


FIG.  5 


.3  (Continued)  FLOW  CHART  FOR  SUBROUTINE  MOD 
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FIG.  5.3  (Continued)  FLOW  CHART  FOR  SUBROUTINE  MOD 
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STAGE  4.2 


STAGE  4.3 


CELL  DRY 
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STAGE  4.4 


CHANGE  APPROPRIATE  FLAGS, 
SET  CORRESPONDING  FLOWS  TO 
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FIG.  5.3  (Continued)  FLOW  CHART  FOR  SUBROUTINE  MOD 
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FIG.  5 


START 


6 FLOW  CHART  FOR  SUBROUTINE  TIDAL  2 


STAGE  1,0 


L2 


TABLE  5.7 

CELLS  USED  TO  FIND  VELOCITIES  AND 
TIDES  FOR  STATIONS  USED 


TABLE  5.8 


1 


VALUES  OF  lOPP  AND  CORRESPONDING 
VARIABLE  FOR  USE  IN  CALL  TO  MODPRI 


lOPP  Variable  Units 


feet 

ft/second 
ft/ second 
feet  (wrt  datum) 
ft  /minute 
ft  /minute 


1 Flag  field 

2 Water  depths 

4 Velocities  in  x-direction 

8 Velocities  in  y-direction 

16  Water  levels 

32  Flows  in  x-direccion 

64  Flows  in  y-direction 
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GET  LUN 


arguments  are  file  NBR  and  LUN  IN  THAT  ORDER 


WFILEF* 

LA 

12t*l»U 

LA 

12.NTABS 

SA 

12. LUN  . 
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WFILE* 


. BUT 

must  be  followed  by  a nop  for  a total  of  3 WORDS 
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6.0 


DATA  CARDS 


1 


The  data  cards  required  to  run  the  Masonboro  hydraulic 
model  are  given  in  Table  6.1.  A discussion  of  the  parameters 
fo 1 lows . 

6.1  Card  1 


IMAX;  is  the  number  of  columns  in  the  cell  structure, 
i.e.,  the  number  of  increments  along  the  x-axis. 

JMAX;  is  the  number  of  rows  in  cell  structure,  i.e., 
the  number  of  increments  along  the  y-axis. 

NREEF ; is  the  number  of  cell  walls  that  are  designated 
as  barriers. 

i 

lECHO ; this  parameter  indicates  what  data  is  to  be  ' 

echo  printed,  if  any.  The  options  available  are 

0 - no  echo  print  of  input  data 

1 - echo  print  input  data  and  calculated  friction 

factors 

2 - echo  print  input  data  only. 

ITAPE:  tape  file  number  to  which  values  of  IFLAG  , H , 

QX  , and  QY  , and  other  control  information  are  written. 

If  equal  to  zero  (0),  no  output  to  tape  is  performed. 

The  tape  unit  number  is  one  (1). 

IQYQXH;  this  parameter  controls  the  initialization  of 
the  water  height,  the  flow  through  the  cell  walls,  and 
other  parameters.  If  it  is  positive,  a restart  is 
assumed  and  the  input  if  from  tape  and  IQYQXH 


J 
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TABLE  6.1 
DATA  CARDS 


I 


CARD  1:  FORMAT(16I5) 

'^IMAX , JMAX , NREEF , lECHO , ITAPE , IQYQXH , IPRT , IPRMOD , NSTEP , JB , 
JBR , IBU , lOPP , lOPP 1 , IPCH 


CARD  2:  FORMAT(7F10.3) 

DT , TMAX , PTIME , PS , TTAPE , VAL , TLIM 


CARD  3:  FORMAT(6F10.3) 

DELTA , DELTA2, TIME, TINT, TPRMB,TPRME 


BARRIER  CARDS:  FORMAT(3F10 . 0) 


CORIOLIS  CARD:  FORMAT  (2F10.0) 
IOMEGA  PHI 


SEABED  ELEVATION  CARDS:  FORMAT(20F4 . 0) 

ft(21,2) 


<Z(1,2)  Z(2,2)  Z(3,2) Z(19,2)  Z(20,l) 


'Z(41,I)  Z(42.1) 

..••Z(46,l) 

t(21,l)  Z(22,l) 

Z(39,l)  Z(40,1)J 

2(1,1)  Z(2,l)  Z(3,l)--- 

Z(19,l)  Z(20,l)  -1 
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TABLE  6.1  - Continued 


TABLE  6.1  - Continued 


WIND  CARDS:  F0RMAT(I2 ,F10. 1) 


FORMAT(3F10.2) 


WSPEED(N)  WDIR(N)  WTIME(N) 


TIDE  CARDS;  FORMAT( 1 10 ,F10 . 0) 


FORMAT (A4,A6,F6.0,4X, 12F4.2/20X, 12F4.2) 

column  21 


D(12) 


•TD(23) 


LOG  DATE  TIMCOR  TD(0) 


■TD(ll) 


PRINT  CARDS:  FORMAT (15) 


FORMAT(10(A6,A1)) 


TITLE  11  TITLE  12. 


TITLE  1 TIl^E  2- 


■TITLE  10 


FORMAT (1615) 

[i:P(17)  JP(17) 

'IP'O )~JP ( 9)”lP(10)  JP(To ) 1P(16)  JP(16) 


IP(1)  JP(1)  IP(2)  JP(2) 


1P(8)  JP(8) 
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is  the  file  number.  If  it  is  negative,  the  input  is 
from  cards.  If  zero  (0),  no  input  is  assumed,  and  the 
arrays  are  set  to  zero.  The  tape  unit  number  is  one  (1). 
For  more  information,  see  initialization  cards. 

IPRT:  this  parameter  controls  the  form  of  the  output 

at  the  time  interval  PTIME  (see  Card  2). 

= 1 output  through  subroutine  MODPRl 
= 2 output  through  subroutine  PRINTl 
= 3 output  through  subroutines  MODPRl  and  PRINTl 

IPRMOD;  number  of  calls  to  subroutine  MOD  between  calls 
to  subroutine  MODPRl  from  subroutine  MOD. 

NSTEP;  number  of  time  steps  between  calls  to  subroutine 
MOD  from  program  MASON . 

JB;  smallest  J index  of  tidal  flat  cell. 

JBR:  smallest  J index  of  cells  with  special  boundary 

on  right  cell  wall  and  that  is  not  an  external  cell. 

IBU;  smallest  I index  of  cells  with  special  boundary 
on  top  cell  wall  and  that  is  not  an  external  cell. 

lOPP;  print  control  parameter  sent  to  subroutine 
MODPRl  by  subroutine  MOD.  For  values  see  section  on 
subroutine  MODPRl  (Section  5.8). 

lOPP 1 ; print  control  parameter  sent  to  subroutine 
MODPRl  by  call  in  main  program  controlled  by  parameter 
IPRT  (see  Section  5.8  and  Table  5.8). 
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IPCH:  a second  print  control  parameter  used  in  subroutine 

PRINTl  to  control  the  form  of  the  output  (see  Section  5.8). 

6 . 2 Card  2 

DT  and  PS : the  time  increment,  DT  , and  cell  size, 

DS  , are  dependent  on  each  other.  The  dependence  is 
governed  by  the  numerical  stability  requirement  given 
by  equation  (16)  in  Section  2.3.  The  equation  is 

DS 

DT  s 


where  g is  the  acceleration  due  to  gravity  and  D „„ 
is  the  maximum  water  depth  expected.  Using  a one 
nautical  mile  grid,  DS  = 6080  feet,  the  time  increment 
DT  is  at  most  approximately  2 minutes. 

TMAX;  is  the  length  of  the  run  in  hours. 

PTIME : this  is  the  time  interval  at  which  H , QY  , 
and  QX  are  printed  for  up  to  seventeen  (17)  control 
cells  (see  print  cards). 

DS;  see  DT  above . 

TTAPE : time  interval  in  minutes  between  dumps  to  tape 

starting  with  file  ITAPE. 

VAL:  friction  factor  used  in  tidal  flats. 

TLIM;  absolute  time  (not  relative)  in  hours  that  run 
is  to  stop. 
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6.3 


Card  3 


DELTA : discrimination  value  in  feed  used  to  decide 
whether  a cell  is  flooded  or  not  (see  Section  5.4). 

DELTA2 : similar  to  DELTA  but  used  to  determine  if 

there  is  flow  across  a barrier. 

TIME : absolute  time  at  start  of  program.  If  restarted 
from  tape  this  value  is  overridden  by  the  value  on  the 
tape . 

TINT:  initial  water  level.  If  restarted  from  tape 

values  on  tape  used. 

TPRMB : time  in  hours  after  which  tidal  prism  can  be 

ca Iculated . 

TPRME : time  in  hours  before  which  tidal  prism  can  be 

ca Iculated . 


TPRMB  < TPRME 

These  values  should  bracket  the  period  that  the  tide 
is  rising  for  which  the  tidal  prism  is  desired. 

6.4  Barrier  Cards 


The  three  parameters  on  each  card  are 

Cg  - the  barrier  discharge  coefficients  (see  page 
9 in  Section  2.2), 

ZB  - the  barrier  elevations  with  respect  to  datum 
level  in  feet,  and 
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I 


DYB  - the  barrier  widths  in  feet.  Not  used  in  this 
program. 

These  cards  specify  the  parameters  for  the  various 
barriers.  There  should  be  one  card  for  each  cell  wall 
designated  as  a barrier.  If  there  are  two  barriers  for 
a given  cell,  the  barrier  perpendicular  to  the  flow  in 
the  X direction  (right  wall  barrier)  is  treated  first 
and  then  the  other.  The  cards  are  arranged  in  the 
order  in  which  the  barriers  are  encountered  by  the 
program  while  it  is  stepping  through  the  grid  structure. 

6.5  Coriolis  Card 

OMEGA  = 0.0000729  rad/sec 

PHI  = latitude  in  deg  of  site. 

6 . 6 Seabed  Elevation  Cards 

These  specify  the  bottom  elevations  with  respect  to 
datum  level.  Elevations  below  the  datum  are  input  as 
positive  numbers  while  those  above  the  datum  are 
negative  numbers.  Elevations  for  external  cells  should 
be  99.9.  They  are  punched  on  the  cards  by  row,  see 
page  195  and  4)  in  Section  2.3,  page  15. 

6.7  Friction  Scaling  Cards 

The  values  on  these  cards  are  multiplied  times  the  base 
values  of  the  friction  factors  to  modify  them.  The 
base  value  for  non-tidal  flat  cells  is  .0025  and  that 
for  tidal  flat  cells  is  VAL  specified  on  the  second 
data  card.  They  are  punched  on  the  cards  by  row  like 
the  seabed  elevation  cards. 
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6.8 


Initialization  Cards 


These  cards  specify  the  initial  values  of  H , QX  , 
and  QY  , They  need  to  be  present  only  if  the  values 
are  not  read  from  tape  (IQYQXH  > 0)  or  are  not  set 
equal  to  zero  (IQYQXH  =0).  If  the  initial  values 
are  read  from  cards,  they  are  read  in  the  following 
order:  1)  the  water  level  array,  H ; 2)  the  flow  per 
unit  width  in  the  x direction,  QX  ; and  3)  the  flow 
per  unit  width  in  the  y direction,  QY  . Each  array 
is  read  in  its  entirety  before  the  next  array  is  read. 

The  array  elements  of  each  array  are  read  in  the  order  in 
which  the  cells  are  processed  by  the  program  (see  end  of 
Section  2.3).  For  a given  array,  arrange  the  rows 
side  by  side  to  form  a one-dimensional  array.  That 
is,  place  row  two  (2)  to  the  right  of  row  one  (1), 
row  three  (3)  to  the  right  of  row  (2),  and  so  on. 

Next,  punch  the  values  on  the  cards  using  the  required 
format  starting  with  the  first  value  of  row  one  (1) 
and  continuing  until  the  last  value  has  been  punched. 

6.9  Flag  Field  Cards 

These  cards  specify  the  flag  field  for  the  program. 

There  is  a one-to-one  correspondence  between  the  flags 
and  the  cell  walls. 

In  specifying  the  flags,  the  flags  for  the  cell  walls 
perpendicular  to  the  x-direction  (vertical  walls  are 
specified  first).  Starting  with  cell  (1,1)  the  condition 
of  all  the  vertical  cell  walls  in  row  one  are  specified 
as  they  are  encountered  going  in  a positive  x-direction. 
Then  the  second  row  is  done  the  same  way  and  so  on  until 
the  last  row  is  done.  Each  row  goes  on  a separate 
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ciird.  After  all  of  the  rows  are  done  Linen  tine  horizontal 
cell  walls  are  encoded  in  a similar  manner  usin^  the 
columns.  Starting  with  cell  (1,1)  again,  the  flags 
for  the  walls  are  specified  as  the  walls  are  encountered 
going  up  the  column.  After  the  first  column  is  done 
the  second  is  done,  and  so  on.  Each  column  is  contained 
on  one  card, 

i 

All  cell  walls  ;ire  encoded  including  the  outer  walls. 

Therefore,  if  the  grid  is  N by  M , (N,M),  there  will 
be  N+1  numbers  for  the  row  cards  and  M+l  numbers 
on  the  column  cards. 

The  ceil  walls  are  encoded  as  if  all  flooii  plains  were 
completely  flooded,  i.e.,  flag  * 0.  Tlie  flag  system  is 
discussed  in  Section  3.3  and  the  flag  key  is  given  in 
Table  3.2.  The  flag  cards  are  omitted  in  restart  runs. 

6 . iO  Wind  Cards 

Tlu’Se  cards  specify  the  clianges  in  the  wind.  A 
change  in  Llie  wind  is  deliiu'd  as  a chaiij^e  in  eitlier  llu- 
wiiul  speeii  or  wind  diri'ction.  Tlie  wind  chang.es  are 
currently  treated  as  step  functions.  Ni'  interpolation 
is  performeii  li'r  times  between  Lite  wind  chanj’.es . I’he 
program  will  currently  accept  up  to  ten  (10)  wind  changes 
(st>e  Section  ft). 

The  variables  are 

N - number  of  wiiul  chang.es . It  set  oijua  I ti>  zer*.', 
none  of  the  ri'inaining,  varial'les  are  ri-nu  i lU'il 
anil  calm  coiulilions  ari-  assumi-il.  I'he  carils 
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normally  containing  WSPEED  , WDIR  , and 
WTIME  should  be  omitted. 

ROT  - the  angle  between  north  and  the  positive 
X-axis,  measured  in  a clockwise  direction 
starting  at  north.  For  the  GB  model  ROT  = 
51.5  while  for  the  P.  H,  Robinson  and 
Cedar  Bayou  model  ROT  equals  100*^  and  41^, 
respectively. 

WSPEED  - the  new  wind  speed  (mph) . 

WDIR  - the  new  wind  direction  with  respect  to  north 
in  a clockwise  direction.  This  is  the 
direction  reported  by  the  U.  S.  Weather  Bureau. 

WTIME  - the  time  in  minutes  at  which  the  changes 
occurred . 

6.11  Tide  Cards 


The  actual  half-hourly  record  always  starts  in  column 
21  of  the  data  cards  with  four  cards  per  day  of  record. 
Each  day  has  associated  with  it  a LOC  , DATE  , DSHIFT  , 
and  a TIMCOR  . 

The  variable  definitions  are 

N - the  number  of  days  of  input  tidal  records. 

DSHIFT  - datum  correction  for  input  record  in  feet. 

This  is  included  so  that  if  after  the  tide 
cards  have  been  punched  the  reference  datum 
is  changed  the  tide  cards  need  not  be  repunched. 
The  error  introduced  by  the  change  need  only 
be  entered  here. 
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LOG  - four  (4)  alphanumeric  characters  used  to 
identify  the  input  record 

DATE  - the  calendar  date  of  record  in  the  form 
MMDDYY. 

TIMECOR  - time  correction  for  date  in  minutes.  Its  use 
is  similar  to  DSHIFT  above. 

TD  - actual  half-hourly  record  of  tide  level  in 

feet  with  respect  to  mean  sea  level.  Six  (6) 
hours  of  data  appear  on  one  card.  The  first 
six  (6)  hours  of  a day  are  on  the  same  card 
as  LOG  , DATE  , and  TIMEGOR  . The  remainder 
are  on  the  next  three  (3)  cards. 

Print  Cards 


These  cards  are  used  to  identify  the  cells  for  which 
print  out  is  desired  (see  Section  3.6).  The  variable 
definitions  are 

IPT  - the  number  of  cells  for  which  information  is 

to  be  printed.  IPL  must  not  exceed  seventeen 
(17). 

TITLE  - a string  of  seven  (7)  alphanumeric  characters 
used  to  identify  the  cells  on  the  output  for 
which  the  information  is  to  be  printed. 

IP  & JP  - arrays  of  the  cell  coordinates  for  the  location 
of  the  cells.  The  values  for  a given  cell  are 
adjacent  to  each  other  on  the  data  card  with 
the  1 subscript  first. 
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6. 13  Data  Deck  Arrangement 

To  run  the  program  one  only  needs  to  assemble  the 
program  deck  along  with  the  proper  control  cards  and  data  deck. 

The  data  card  arrangement  in  the  data  deck  is  the  same  as  in 
Table  6.1  at  the  beginning  of  this  section.  Tables  6.2  and  6.3  are 
listings  of  typical  data  decks  used  in  the  verification  runs.  The 
data  deck  listed  in  Table  6.2  is  for  an  initial  start  with  tape 
dumps  to  a clean  tape.  If  the  tape  is  not  a clean  tape,  and  it 
is  desired  to  save  the  files  on  the  tape,  the  only  difference 
would  be  that  the  variable  ITAPE  (circled  in  listing)  would  be 
equal  to  the  last  file  that  it  is  desired  to  save  plus  one.  This 
assumes  that  the  tape  was  written  using  SEARCH  and  WFILE. 

The  data  deck  listed  in  Table  6.3  is  for  a restart  from 
tape  file  number  ten  on  a tape.  Note  that  in  the  restart  deck 
there  are  no  flag  cards  present.  When  restarting,  the  input  file 
should  have  approximately  the  same  water  levels  during  the  same 
phase  of  the  tidal  cycle  as  the  restart  time. 


I 
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TABLE  6.2 

EXAMPLE  OF  DATA  DECK  FOR  INITIAL  VERIFICATION  RUN 
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TABLE  6.2  - continued 

EXAMPLE  OF  DATA  DECK  FOR  INITIAL  VERIFICATION  RUN 
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octal  equivalent  for  those  three  bits.  Bits  are  numbered  from 
the  right. 

The  numbers  in  the  right  two  columns  are  the  decimal 
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In  accordance  with  letter  from  DAEN-KDC,  DAEN-ASl  dated 
22  July  1977,  Subject:  Facsimile  Catalog  Cards  for 
Laboratory  Technical  Publications,  a facsimile  catalog 
card  in  Library  of  Congress  MARC  format  is  reproduced 
below. 


Chen , R J 

Comparison  of  numerical  and  physical  hydraulic  models, 
Masonboro  Inlet,  North  Carolina;  Appendix  3;  Numerical  simu- 
lation of  hydrodynamics  (Tracer)  / by  R.  J.  Chen  and  L.  A. 
Hembree,  Jr.  Vicksburg,  Miss.  ; U.  S.  Waterways  Experiment 
Station  ; Springfield,  Va.  : available  from  National  Technical 
Information  Service,  1977. 

xiv,  254,  7 p.  : ill.  ; 27  cm.  (GITI  report  - U.  S.  Army. 
Corps  of  Engineers  ; 6,  Appendix  3) 

Prepared  for  U.  S.  Army  Coastal  Engineering  Research  Center 
under  Contract  DACW72-72-C-0029,  by  Tracer,  Austin,  Texas. 

General  investigation  of  tidal  inlets;  a program  of  research 
conducted  jointly  by  U.  S.  Army  Coastal  Engineering  Research 
Center,  Fort  Belvoir,  Virginia,  [and]  U.  S.  Army  Engineer 
Waterways  Experiment  Station,  Vicksburg,  Mississippi. 
References:  p.  253-254. 

1.  Hydraulic  models.  2.  Hydromechanics.  3.  Masonboro  Inlet, 
N.  C.  4.  Mathematical  models.  5.  Numerical  simulation. 
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Chen,  R J 

Comparison  of  numerical  and  physical  hydraulic  models, 
Masonboro  Inlet,  North  Carolina;  Appendix  3:  Numerical  simu- 
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